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ABSTRACT 


A Mechanical Engineering Department project in which the VAX/VMS system was 
utilized to create an interactive menu driven program to solve basic preliminary ship 
design problems. 

Enhancement of an existing program was initiated to improve the user interface by 
adding user-friendly help information. Also, routines were written to calculate 
propulsive power requirements based upon the ship form coefficients selected and com- 
parisons made using the Method of Silverleaf and Dawson and the Admiralty Coefficient 
prediction method. Further computational routines were added to predict range and 
endurance figures for estimated voyage data and selected propulsion plant types, using 
the U.S. Navy Design Data Sheet DDS9400-1 methodology. Finally, the detailed 
printed report generated by the system was updated to include reports of these calcu- 


lations for the users design study. 


THESIS DISCLAIMER 


A. SOFTWARE DISCLAIMER 

The reader is cautioned that computer programs developed in this research may not 
have been exercised for all cases of interest. While every effort has been made, within 
the time available, to ensure that the programs are free of computational and logic er- 
rors, they cannot be considered validated. Any application of these programs without 


additional verification is at the risk of the user. 
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I. INTRODUCTION 


A. BACKGROUND OF GRAPHICAL USER INTERFACES 

Advances in the electronics industries since the 1970’s have enabled the development 
of increasingly more capable and complex computer systems. To harness these systems, 
software engineers have produced programs that enable todays users to have a degree 
of computational power that was unfathomable just 10 years ago. Asa result, software 
programs have been increasing in complexity every year. This has turned out to be a 
double edged sword; on the one hand the desktop computer power has enabled the de- 
velopment and solution of problems that would require the resources of a mainframe 
computer not too long ago, but it has also meant that the user 1s confronted with the 
requirement to comprehend all of this capability. This has led to the development of 
user interfaces that seek to simphfy and manage the task confronting the user [Ref. 1: 
pp. 115-139]. Among these user interfaces have been a host of graphical systems that 
attempt to simplify the program presentation to the user by means of visual icons and 
multiple screen windows for specific tasks. These interfaces are termed Graphical User 
Interface, or GUI for short. 

The very first development of the GUI occurred in the late 1970’s at KEROX Cor- 
poration’s Palo Alto Research Center (PARC) and was embodied in the NEROX Szar 
Office System coniputer [Ref. 2]. The Srar System was not agressively marketed and 
languished in the PARC laboratories until 1984 when its basic ideas were consolidated 
into the APPLE Corporation’s Lisa, and subsequently the WacIntosh system, which was 
ultimately more commercially successful and exists even this day. Since that time several 
other GUI’s have been developed and popularized for the express purpose of interfacing 


between man and machine [Ref. 1: pp. 337- 371]. 


B. “TOOL BON AND PRELIMINARY SHIP DESIGN 

This brings us to the point of developing a program that will enable a user to solve 
basic preliminary ship design problems without necessarily being completely familar 
with the inner details of the program code. Having at our disposal a Digital Equipment 
Corporation (DEC) VAX/VMS Network, we have taken a basic ship design program 
previously developed [Ref. 3 ] at the Naval Postgraduate School and enhanced its use- 
fulness by the careful application of graphical presentations. This program as it existed 


previously computed some basic ship static and hydrodynamic stability parameters, 


predicted the ship’s turning circle, and printed a detailed hard copy report of those cal- 
culations if so desired. It began the design process utilizing basic GUI principles but 
did not reach its potential with respect to its ability to communicate with the user. This 
does not at all reflect upon the abilities of its developer, but only indicates the scope of 
the software developement task. In the short time available to the preliminary author, 
he was able to implement many of the VAX Systems User Interface Services (UIS) 
routines in the initial version. However, time and other constraints kept him from a full 
implementation of the VAX systems capabilities for graphical presentation. This is the 
point where this author has engaged the project and made some important enhance- 
ments of the basic code and also some additions to its computational abilities. 

Figure 1 on page 3 (from Ref. 4, p. 15), shows a generally accepted version of the 
Iterative Design Spiral, typically used in Preliminary Ship Design to refine a design as 
conditions and data become more concrete. TOOL BOX, as it existed, sought to define 
the early parameters required for the design, and attempted to show quickly that the 
design would be stable and maneuverable, essentially completing the boxes labeled (a) 
and (b) in Figure 1. From this point we will progress further along the iteration pattern 
and provide the calculations indicated in box (c) of Figure 1, and go back and try to 
enhance some of what was accomplished before. The modular concept of JOOL BOX 
supports this type of application where the design calculations will be performed time 
and again, as the design data is finalized. Thus each module will provide the specific 
calculation required by one of the Design Spirals major elements, and the modules can 
be accessed in any order required. 

Additionally, we will add some commonly utilized GUI features to enhance the 
programs ease of use and information presentation, and attempt to make full use of the 
VAX; VMS Operating Systems capabilities for Graphical Programming in High Level 


Languages. 


C. WHY WINDOWING SCHEMES? 

One common feature shared by most, if not all GUI’s, is the ability to display mul- 
tiple windows on screen simultaneously, with separate windows for separate tasks. This 
scheme has the advantage of concentrating the user’s attention on a certain window that 
1s considered the active window. Windowing GUI’s are present in all forms of computing 
environments today, from Microsoft Windows for MS-DOS based systeins, to the Apple 


MacIntosh, to a variety of systems for UNIX and its derivatives, and many others. 


OwNEP’S GEN. REQUIREMENTS OPERATIONAL 
REQUIREMENTS — QUALITY STANOARCS | & SERVICE 
Vwe. SFR R SPECIAL FEATURES INFORMATION 
| | 

Y 


SELECTION OF DESIGN PARAMETERS SELECTION OF APPROPRIATE 
ee VAL, EA. VAyau B/T, Cp. 0 OESIGN FACTORS & EMPIRICAL 
Co eS paar RELATIONSHIPS 


PERMUTATION OF ey ft 
; Cy SF IVA/GL) 
vif 39/T. C,. 
¥ 


256 SriPS 
POWER CALCULATIONS STANOARO SERIES 
& Carc. OF REC'O RESISTANCE INFO, 
FUEL OIL CAPACITY FUEL RATE RELATIONSHIP 


PERMUTATIONS OF . 0 VALUES 
& CALCULATION OF WEIGHTS EVPIRICAL WEIG-T 4 
AND VOLUMES VOLUME RELATIONSHIP 


1924 SAie$ 


ST INTERPOLATION: SELECTION 
OF SHIPS WiTe PED‘D. STOWAGE 
CToF 


Fac or 
265 SalPs ’ 
ONG INTESFOLATION SELECTION 


OF SHIPS WiTrm RED'S CARGC 


awe 
ow 


- 
= 
2 
hd 
= 
& 
F) 
= 
o 
= 
n 
Lt 
< 
c 


SPD INTERPOLATION 
FREZEICARO CHECK & COST 
AOTIMIZATION ONL 2 


COST FELaTiIONSH16$ 


27a INTIRPOLATION 
STABIL. TY CHELK & COST WEIGHT & CENTERS SELATIONSHIPS 
SoTIMIZATION ON CG” TRANS INEST A RELATIONSHIPS 


a AMIN STASILITY TRITERIA 
é Sirs v 
Ste iN TEPPOLATION- 


COST CFTIMIZATION QPES ETI ANAL DIFFEZSENTIAL 
ON PRISMATIC TOEFF 


MAIUR CHANGES THAT WILE AFFECT wercnt, CERTERS, VOt PME A COST RELATIONSHIPS 


i 


LIMITATIONS 


Midtth IC ATIONS 


CHANCES 1 SEAHILITY CHETEIIA 
PALE DICAL HSUHIAL 


EVALUATION OF THE 
) EFTEITS @ RELATIVE COST 
OF OES!IGN CRANGES 





Figure 1. Iterative Design Spiral (typical) 


However windowing systems do allow for the presentation of information to the user in 
a manner not obtainable by command-line svstems. 

For example, one of the most powerful ship design programs available today is 
ASSET from Boeing Company, based in Seattle, Washington. This program employs 
Strictly a command-line interface where the user inputs various commands to the system 


and awaits a prompt to continue. Nevertheless, for all the power available in ASSET, 


it suffers from this command-line interface in the worst fashion. A user either has to 
know the commands available and all the options for them, or they must have the ref- 
erence manual handy at all times. Since manuals are generally not available for all users 
at once, it 18 considerably harder to master all of its features without constant use and 
practice, 

My primary goal in this project was to enhance the methods used bv TOOL BOX 
in Which information was presented to the user by utilizing some basic GUI presentation 
methods such as ‘pop-up’ dialog boxes that would convey some important or useful in- 
formation to the user at the appropriate time, then disappear when not required. This 
form of windowing has the advantages of getting the user’s attention quickly since the 
display screen changes in a most abrupt fashion. Since the user will now be concen- 
trating on the small piece of information conveyed by the dialog box, and any options 
will be displayed for them at this time, no requirement for reference manuals or mem- 
orization is needed. This technique is employed by all the GUI’s available today, so the 
method is consistent with current software design practice. GUI traits that we will in- 
corporate will be timed display of choices or information, visual prompting for needed 
input, multiple display of windows, and so forth. Also, we shall improve the 
calculational power embodied in TOOL BOX by adding other routines based around the 


Same central core code and utilizing the same interface. 


D. STANDARDS AND CONVENTIONS 
1. Attribute Blocks 

Attributes are used to describe the basic default format representation of text 
and graphics. These attributes are stored in blocks that can be modified by the pro- 
grammer. Whenever any modification (for example the screen font) is desired, it 1s 
necessary to copy the basic attribute block 0 to another numbered block and then 
modify the attribute concerning screen fonts. Otherwise a previously modified block can 
be used as the basic block and modified again. Attribute block 0 can never be changed, 
as it contains all the system defaults. All previous modifications remain unless changed 
by the current modification. The system programmers references [Ref. 5 Chapter 9, 
section 2.2 ] contain more on what modifications can be performed and how to accom- 
plish the desired changes. The previous author has utilized blocks | thru 10 for his 
preliminary code; in order to ensure that we don’t mistakenly modify a block that 1s in 
use in some other undocumented portion of the program, we will use blocks 20 thru 50 


for our additions to the code. The documentation for the previous section of code is 


incomplete, thus we will skip blocks 11 thru 19 as a safety feature. The DEC VAX/VMS 
system allows up to 255 different attribute blocks, so we should have no problem utiliz- 
ing separate blocks for this part and any subsequent additions. Optimization and min- 
imization of code and resources is not an objective at this point in the development. 
2. Code Documentation 

This is the standard we will use to add documentation and comments into the 
code section to explain each step to a reader. All too often a source code that has not 
been documented internally by the author will be reviewed by another programmer and 
the lack of clear concise documentation will lead to lengthy frustration. Therefore, our 
method will be as follows; 


e Comments in the source code shall begin with C*****, and every line that is not 
intuitively obvious will have a comment preceeding it. 


e Subroutines will be preceeded by a description of the purpose and utilization of the 
routine. If the routine is called by more than one section, it will be noted. 


e New sections or changes added by this author to existing code will be annotated 
as changed, so credit may fall to the appropriate author. 


e Complete copies of the TOOL BOX source code, including parts not covered in this 
document, may be obtained from Professor F.A.Papoulias, Code ME/Pa, Naval 
Postgraduate School, Monterey CA 93943-5000 or from Professor J.F. Hallock, 
Code ME,HI, Naval Postgraduate School, Monterey CA 93943-5000. 


Il. DIALOG BOXES 


A. FUNCTION OF THE DIALOG BOX 

The use of ‘pop-up’ dialog boxes is fundamental in the operation of most GUI’s in 
that, at some point during the execution of the program, some element of information 
will need to be conveyed to the user. TOOL BOX 1s designed in this manner to overcome 
the limitations of command-line based ship design analysis programs thus every effort 
will be made, mostly via context sensitive dialog boxes, to present information to the 
user as it 1s required without requiring the reference manual to be handy. Basically the 


dialog boxes function as follows: 


1. The point of the program that the author deems important calls the dialog box 
routine. 


to 


The dialog box 1s presented, displaying the information or choices available to the 
user. This involves VAX UIS routines to create a display, to create a window, to 
modify the text as the author desires for presentation, and to execute its function. 


3. If some action is required by the user, the program waits for that action. 


4. If only information is to be displaved, then a suitable time is given for it to be 
viewed by the user. 


5. Upon completion the dialog box is removed from view by the system. This step 
involves VAX UIS routines to time the display to completion, delete the display 
(and associated keyboards, windows, and viewports) and remove itself from the 
screen. 


The best resource for the actual routines used and the parameters required is the 


specific system manual [Ref. 5 Chapter 18]. This is an indispensable source for the 
VAX) VMS programmer. 


B. TYPES OF DIALOG BOXES 

Two distinct types of dialog boxes were required to be used. The similarities are 
apparent, vet each functions differently enough to warrant separate discussion. 

I. Visual Display Information Box 

This type of dialog box is used to display information to the user at the appro- 

priate time. No conversation between the user and the system is required, therefore the 
routine can be fairly simple. An example of this type of display is the subroutine 
SHOW_SAVE used during any attempt by the user to save a data file. Its purpose is 


simple: it reminds the user not to save the file under the same name and extension as 


was used previously in another part of the program, since this will cause the new data 
file to overwrite the old one. This subroutine code is simple and is reproduced in Ap- 
pendix A. Essentially the subroutine is called during an attempt to save a data file by 
the system. It pops up and writes to a new display box and window the message about 
using a different filename and extension. It does not need any action by the user, as it 
is for informational purposes only. Since no action is required, it must remove itself 
from display after an appropriate time has passed, yet give the user enough time to read 
and comprehend its message. For this time delay we have used a system library call to 
the VAX function LIBSSPAWN( ’WAIT 00:00:15’). This function ‘spawns’ a new 
process that calis the intrinsic VAX function WAIT for a delay set as 15 seconds. The 
time format 1s HH:MM4°:SS in hours, minutes, and seconds. Upon completion of this 
delay, the display window is deleted and the system proceeds at the point the delay 
process was spawned. This method is rather elegant in that only svstem functions are 
Msed for the delay. The UiS routines ieamited “for this action are 
UISSCREATE_DISPLAY, UISSCREATE_WINDOW, UISSSET_FONT, 
UISSSOUND_BELL, UISSTEXT, and UISSDELETE_DISPLAY. The font and bell 
routines are optional; however, they add to the display by making it both audible and 
visually different than the existing display when the window is created. Also, the bell 
volume 1s fully variable by the programmer. A value of ‘0’ for the second argument will 
Set the volume to its most quiet position, and an 8’ will set it to the loudest position. 
We have used a value of ‘4° which creates a medium loud bell, loud enough to draw at- 
tention but not to cause the user to be startled. If no volume is specified, then the sys- 
tem defaults the bell volume to the workstation volume setting. The window created by 
this process 1s shown as Figure 2 on page 8 below. 

The presentation of this display lasts approximately 15 seconds depending upon 
the number of windows and processes currently open on the terminal, and so will be 
slightly longer if multiple concurrent process are active. Upon removal of itself, the 
display returns to the window that was active when the dialog box routine was called. 

2. Conversational Dialog Box 

This tvpe of dialog box is used to display information to the user and also to 
give the user a choice for proceeding. An example of this type of procedure is the sub- 
routine NOWHERE that is called by the mouse selection of a Reserve Module from the 
Main Menu. This routine uses essentially the same UIS routines as the previous 
method, but also incorporates a FORTRAN PAUSE statement that interrupts the 


progress of the program. Using the PAUSE statement here gives the user two choices: 


HEGe Winal 


#8 GAVING DEFINED DATA FILE aie! 
DO NOT USE SAME NAME & EXTENSION 
AS DATA FILE FOR OTHER SUB-SECTION 

PLEASE WAIT 


. MIDSHIPS COEF. 
. VERT. PRISM. COEF. 
. LONG. CENTER OF GRAV. 
@*eRESULTS&R® 
MAX. CROSS SECTION .. 3299.3 
WATER PLANE AREA ........(Aw).. 26388. 
MISHIPS SECTION AREA ....(Am).. 864,00 
VOLUMETRIC DISPLACEMENT 0.67554£+06 
INSTPUC TIONS WATERPLANE AREA COEF. ..(Cwp). 1.1162 
SELECT AN OPTION LENGTH TO BEAM Loe. 8.3889 
WITH THE MDUSE LENGTH TO DRAFT Leea 14,156 


P-SPOHS*® HR=H 


2 


FP ORTRAN PAUSE | 
C 





Figure 2. Visual Display Information Dialog Box 


1. Enter CONTINUE’ or ‘C’ and the program will resume at the point of inter- 
rupuon. 


2. Enter ‘EXIT’ and the program will terminate at that point, deleting all displays and 
windows associated with it, and return the user to the active process that was used 
to call the program TOOL BOX. 

This selection of choices was chosen since at this point the user is in the Main 
Menu Window and the direction to proceed will be either, (1) to continue if that selection 


is entered, or (2) to end the program and exit if the user has selected these future mod- 


ules just out of curiosity. The user need not see what has been typed at the terminal 
when a choice is inade; however, if the calling window is visible at the bottom of the 
screen as in Figure 3 on page 10, then the typed text reply will appear here. This is only 
necessary if the user happens to be a poor speller, since the program will not proceed 
without the entry of a properly spelled command. Thus the VAX shorthand command 
for “ CONTINUE’ as ‘C’ is best utilized. Otherwise, the user enters a choice by typing 
on the terminal keyboard followed by a carriage return, and the program proceeds along 
that selection. The result of this process is shown in Figure 3 on page 10 after presen- 
tation of the dialog box. 

No timing of the display is required since it will remain there until a proper 
command is entered. The routine UISSSOUND_BELL is used again to signal audibly 
the user and gain his attention; the bell volume again is set to a medium volume at ‘4’. 
The code for this routine is reproduced in Appendix A. 

3. Other Enhancements 

Although we have not used the technique here, is is possible to have a conver- 
sational dialog box that shows the users reply in the window that requests it. For this 
routine, We would use essentially the same format as in the subroutine NOWHERE, 
except we would attach and enable a keyboard to the display by utilizing the UIS rou- 
tines UISSCREATE_KB and UISSENABLE_KB. Then a small routine would have to 
be added to accept and display keyboard input into the window. This ts not difficult; 
and it might be helpful by allowing the user to see what has been typed as their reply, 
thereby alleviating some errors caused by typing mistakes. This technique has not been 
used here since there are only two allowable responses when using the FORTRAN 
PAUSE statement; CONTINUE and EXIT. Any other response will be ignored without 
exception and no action will be taken by the program until a proper response has been 
entered. Upon completion of the routine, the attached keyboard would have to be dis- 
abled and deleted by LIS routines and the text reply passed to the calling program as 
input for some action. This sequence is possible and some use may be found for it later 


in the development. 
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Figure 3. Conversational Dialog Box Display 
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Iii. PROPULSIVE POWER REQUIREMENTS 


A. BACKGROUND 

One of the more useful pieces of information to have during preliminary ship design 
is an estimate of the vessel’s propulsion plant power requirements. This is especially 
handy since the size of the plant required to drive the vessel will also give an initial es- 
timate of volume required to enclose it, manpower required to operate it, and the cost 
to purchase and maintain it. So a single “ball-park’ figure will go a long way towards 
helping to advance the preliminary design. 

One of the foremost sources of information and research conducted in this calcu- 
lation was Rear Admiral] David W. Taylor, USN(ret,dec), for whom the David Taylor 
Naval Ship Research and Development Centers (DIRC) in Carderock and Annapolis, 
Maryland were named. His studies for the then US Navy Construction Corps at the 
beginning of this century still serve as required reading for students of ship design and 
naval architecture [Ref. 6]. Some of this research has been duplicated and enhanced by 
more recent scholars utilizing more powerful calculational abilities than Adm. Taylor 
ever envisioned. These studies [Refs. 7, 8 , 9, 10] have resulted in some variations of 
Adm. Tavlor’s basic equations and will be examined here for two methods of power 


prediction that we will utilize. 


B. METHODOLOGY 

Many methods of power prediction exist in the literature and a short amount of re- 
search will produce most of them. The list of methods begins with the “Quick and Dirty’ 
method of Adnuralty Coefficients, which assumes that an already established hull form 
(parent ship) with its basic parameters is known and that it is simplv being modified for 
the new design. This method has been slightly modified [Ref. 8 : pp. 308- 310} and is 
used here in that form. There are several graphical methods for power prediction that 
require charted information on the specific hull form or a family of hull forms close to 
the design in question. These methods will not be used since those charts would have 
to be available in digitized form for all ship classes of interest. There is also an entire 
class of prediction calculations based upon the total estimated hull form resistance to 
movement through the water. This method will not be used here because it entails much 
more detail than we desire, or have at this stage of design. Then there is a method oni- 


ginally proposed by Silverleaf and Dawson [Ref. 9 : pp. 167- 196] and subsequently 


modified by Suan Erichsen [Ref. 10: pp. 83- 115] in a University of Michigan College 
of Engineering departmental paper in 1971. This method will also be presented here and 
the user can choose the desired result with care. 

Some notes about the methods presented here must be discussed first, in order that 
no potential conflicts arise later on: 


e These methods were developed for monohull surface craft only; no capability to 
predict power requirements for catamaran, trimaran, SWATH, etc., types of vessels 
is intended. 


e The resulting power requirement figures do not include added resistance due to 
waves, fouling, or other environmental factors. 
1. Method of Admiralty Coefficients 
The first method to be used is based upon the Admuralty Coefficient since a 
great deal of information about that Coefficient is available in the literature. This 
method assumes that the ship’s resistance is all frictional, and thus the power required 
for propulsion varies proportionately as the cube of the ships speed. The Admiralty 


coefficient A, for a vessel when no parent vessel is used 1s given by: 


aw aseO) 

A= 3.10091 sora ee) (1) 
where ZL 1s length of vessel in meters between forward and aft perpendiculars and V 1s 
speed of vessel in meters per second. Otherwise, if a parent vessel is available, the 
Adiniraltv coefficient is given as 


A=? 2 
ae (2) 


where P, is parent ship power in kilowatts needed to make a speed of V meters per sec- 
ond and A 1s parent ship displacement in metric tonnes. 
Then, using that coefficient to characterize the vessel, we take 
2d 3 
Nace A 
- = aa 3 
—e (3) 
where P, 1s power in kilowatts of the new ship needed to make the same speed V and A 


is the new ships displacement mass in tonnes. 


An improved version of this formula that incorporates almost all of the essential 
ship parameters except that it neglects the influence of the block coefficient C, is given 
by 


$0477 17°(33.0 — 0.017L) 


= (4) 
15,000 — 110%/L 


where # is propulsion shaft revolutions per second needed to make a speed of V meters 
per second and all other parameters are as described previously above in metric units. 
This form is easily equated to our more common form of English Horsepower (hp) units 
by a simple conversion factor, and is the equation we will use for our first method of 
power calculation in the program. Also, some obvious limitations to this formula ap- 


pear readily enough and should be noted : 


e L cannot be larger than 1941.177 meters or the numerator becomes a negative 
value. 


e The product of shaft speed 7 in revolutions per second and the square root of L 
cannot exceed 136.364 or the denominator becomes a negative value. 


e A realistic maximum shaft speed of 4 revolutions per second ( 240 rpm ) limits ship 
length even further to 1162.196 meters. This is not too much of an overall limita- 
tion, but it 1s present nonetheless. 


These limitations will not affect us for the most part but should be noted in any 
event as they could end up being important. It should be noted further that this formula 
(4) tends to fit special cases and types of ships. When used outside of these allowable 
ranges, the results tend to produce erroneous expectations. According to Harvald, 
(Ref. 7: p. 290], “It is not often mentioned within which area the formulas can be ap- 
plied”. Thus we have a method that can be quite accurate for power prediction, if we 
happen to fall within the allowable range, and which otherwise could generate a false 
prediction. For the first method however, it will be satisfactory for an initial estimate. 
We can then couple these results with the second method. If the results are close, we 
can assume that our prediction 1s reasonable. If they depart, then we will have to use 
them with caution. 

2. Method of Silverleaf and Dawson 

The second method that we will use for power prediction is given by Silverleaf 
and Dawson [Ref. 9] as modified by S. Erichsen (Ref. 10]. It uses almost all of the ship 
specific parameters of the design and is usually highly reliable for ships within the fol- 


lowing ranges of speed - length ratio V,//L and beam - draft ratio B/T: 
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Oo (S) 


and 
B 
2.05 (7) 845 (6) 


with C, and length - beam ratio L/B for single screw ships 


0.50 < Cz < 0.86 (7) 
, iL, 
537 (=) 09750 (8) 
or for twin screw ships 
0.54 < Cz < 0.80 (9) 
IL, 
3.80 < (4) s 11.30 (10) 


Where the parameters are specified as follows for these and the following equations : 
I’, 18 ship speed in knots 


V, 1s the ships Boundary Speed, which is that speed, for a given hull form, below 
which the resistance coefficient does not vary greatly, and above which it begins to 
Mrchease rapid yeal as clmemee. oce: 


L is ship length between perpendiculars in feet 
B is ship beam in feet 

T is ship draught in feet 

A is displacement mass in tons 

C, 1s the Block Coefficient given by 


35a 


for ships in standard seawater. 
The Silverleaf and Dawson formula then 1s given by 


(LAP VE Kee KK (12) 
d 427.11 9(Hao0K gp) 


where P, is delivered horsepower required at the propeller. Equation (12) will be used 
as the second method of power calculation in the program development. The terms in 
this formula are all specified for design parameters that may or may not be same as the 
model from which the formula was derived. Thus some corrections need to be applied 
to each parameter below. For a design that does not exactly match the model design, 


then: 


Utilizing ship speed at the Boundary Speed V, expressed in Knots: 


Vp = (1.7 — 1.4C,) JL (13) 
Correcting for ship Length : 
0.85 for L > 1000.0 
(l+x)= (14) 
-| 1000.0—L fas 
0.85 + 0.00183] 100.0 | for L < 1000.0 
Correcting for the Beam - Draft ratio: 
0.982 for B/T < 2.4 
Macs (15) 
rol OG AE 
0.96+ 5.4*10 “10 T) for B/T = 2.4 


Correcting for ship speed V, not equal to the Boundary speed V/V, : 


ees) 55) for ViVp <1 
Vp Vp 
ene (16) 
V aa. 
Ne eee i.) for VjVae 
Vp Vp 


Correcting for a ship hull that benefits from a design with a bulbous bow : 


1.00 for ships without a bulbous bow 
Kz = (17) 
O25 for ships with a bulbous bow 


Correcting for Hydrodynamic Efficiency of the hull form at L = 400.0 feet : 








¥ 
2.60 — 0.2917 A for a single screw 
All 
Hoo = . 
2.38 — 0.2917 for twin screws 
Au 


with a correction for ship length Z not equal to 400.0 feet : 


0.9196 + 2.31*10 °L — 7.5*10 °L? ~~ for L ¥ 400.0 


Kipp = 
1.0 otherwise 


(18) 


(19) 


Correcting for open water efficiency at propeller speed not equal to 120 revolutions per 


minute, where : 
No = No,120 t+ ONo 
with 


0.98 — 0.55C, for a single screw 


70,120 = 
090 = 033, for twin screws 


and for propellor rotating speed N revolutions per minute 
0.360 — 0.0029.N for a single screw 


ONG => 
0.135 —O0.0011N for twin screws 


Thus we have all the required parameters for the Silverleaf and Dawson formula. 


(20) 


(21) 


This formula tends to be more accurate over the entire range of ship specific 


parameters. The parameter limitations are delineated in the beginning and cover a wide 


range of vessels. 


C. COMPARISON OF THE METHODS 
A quick comparison of the two methods utilizing equations (4) and (12) as generated 
by a test code of the formulas and data from established merchant designs (Ref. 4: pp. 


137- 171] is presented in tabular form in Table 1. 


Table 1. COMPARISON OF POWER PREDICTION METHODS 


728,573.58 














Immediately we can draw some conclusions of the two methods used here to calcu- 
late propulsive power requirements; 


e In all cases except one the Admiralty Method has underestimated the power re- 
quirements, although after an allowance for a service and fouling margin, that 
underestimation is not excessive. The one case where this estimation did exceed the 
actual power requirements ( Tanker ‘B’ ) the result was not grossly excessive, and 
was in error of only 15 percent. 


e The Silverleaf and Dawson Method also will always underestimate the power re- 
quirements by a slight margin. This margin of error for underestimation is usuallv 
not excessive and can be accounted for by service, fouling, and other margins. 


A test program was used to generate the data for Table I since the TOOL BOX 
screen displays would consume excessive space in this paper. 
Also, the following should be noted : 


e These values are computed for essentially calm seaways only. No added resistance 
from waves in a rough sea 1s predicted by these methods. 
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e The figures shown are not the total plant requirement for propulsion, only that di- 
rectly needed at the propeller to drive the ship. Thus margins for gear train losses, 
service losses, fouling losses, etc must be added for a total plant size estimation 
figure. 


e And similarily, from Silverleaf & Dawson’s formula there is also a correction for a 
ship design that includes a hydrodynamically well designed (WD) bulbous bow. 
For that case, the power requirement for propulsion is 95% of the power require- 
ment shown, since the improved bow shape lessens the hull! form resistance. Those 
figures are also hsted in Appendix C on the next line directly below the S & D 
calculation. 

Overall though, the two methods taken in combination do allow a fairly accurate 
prediction of a designs propulsive power requirements. The results generated by this 
module of TOOL BOX can thus be used to size and estimate the machinery box volume, 
estimate the manpower required to maintain and operate the machinery plant, estimate 


the cost of the propulsion plant, and so forth. 


D. THE TOOL BOX POWER PREDICTION MODULE 

Implementation of this algorithm of code into the existing TOOL BOX framework 
constituted a fairly easy and straight forward process. An examination of the subroutine 
methodology of the previous modules was made and the same basic pattern was fol- 
lowed. The resulting code is shown in Appendix D and borrows many elements of the 
STATIC STABILITY module (whose flow diagram was utilized) in addition to the vis- 
ual display dialog boxes for HELP WINDOW Ss that present pertinent information to the 
user and then disappear. 

1. Operation of the Power Prediction Module. 

The procedure used to operate the Power Prediction Module 1s essentially a 
logical progression through the available menu choices. We will progress through the 
screen displays in an example designed to show al! the relevant points of the TOOL BOX 
Power Prediction Module. It is understood that when the user is instructed to enter a 
response to a program prompt, that they will follow-up that action by depressing the 
Return key on the VT220 LK201 keyboard. That action is needed to complete any data 
entry Operation. 

2. An Instructional and Illustrative Example 

Shown in Figure 4 on page 19 is the TOOL BOX Opening Menu as the pro- 

gram 1s initiated by the user. This screen is common to the core code of the program, 


and all the program modules are initiated through this screen using the mouse device. 
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Figure 4. TOOL BOX Opening Menu Screen Display 


The third mouse selection available to the user is now POWER PREDICTION 
and a click on this selection (when the mouse pointer is in that box and the text has 
become reverse highlighted) will initiate this module and call up its associated display 
screen. The screen resulting from this selection is shown as Figure 5 on page 20. 

As Figure 5 1s displayed to the user, it should be noted that nothing is shown 
in the DATA DISPLAY AREA on the right hand side. That is because no data is 
passed in at initialization time. A mouse click on the first menu choice ENTER DATA 


FROM KB will initialize the data entry subroutines and the program defaults will dis- 
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INPUT DATA FROM FILE 
STORE DISPLAYED DATA 
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INSTPUCTIONS 
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Figure 5. POWER PREDICTION MODULE Opening Menu Screen Display 


play in the data region as shown in Figure 6 on page 21. Otherwise the user can click 
the mouse pointer on the second box INPUT DATA FROM FILE and load a prede- 
fined data file, perhaps one used before or created by the instructor. This sequence is 
shown as Figure 7 on page 22, with an existing data file entered in the RESPONSE 
AREA to be loaded for data entry. 
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Figure 6. DATA ENTRY Display Screen at Initialization of KB Entry 
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Figure 7. INPUT DATA FROM FILE Filename Entry 
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After the user clicks the mouse pointer on the ENTER DATA FROM KB se- 
lection, the program calls in the stored default values of ship parameters. This is done 
for several reasons: 


e It makes little sense to see all zeroes for data by a new user. Default values will 
give the user an idea of what is required. 


e There are so many restricting data checks on allowable entries in the algorithm 
( eqns. 5- 10 ) that the resulting HELP displays would consume inordinate 
amounts of time (if all initial entries were zeroes). This is because as we progress 
from zero length, beam, draft, displacement, block coefficient, ..., etc., to our final 
values the error checking codes would be called in with almost every parameter 
change due to the large changes in magnitude from zero to any realistic value. 


e It speeds up the processing of the initial calculations. 


Proceeding, note that, in the lower left hand INSTRUCTIONS box of 
Figure 6 on page 21, the user is prompted to enter a line number for whichever line it 
is desired to modify. This can be entered as an integer (1) or a real number (1.)._ The 
program code does not care specifically one way or another. Suppose we wish to modify 
the existing data from the set displayed, which comes from the LARGE GENERAL 
CARGO vessel of Table I on page 17, to another set from that same table for the 
TANKER B design. First we would need to change the data file name to a unique value 
for that design. We would enter a I for the line to change, then enter the name of our 
design. Notice that the user is prompted for the exact detail required for the corre- 
sponding Line number chosen, as in the INSTRUCTIONS box at the lower left corner 
of Figure 8 on page 24. So here we'll use BFANKER for our design name, as shown in 
Figure 8 above the INSTRUCTIONS box, where the user will also note that their data 
entry is mimicked in the RESPONSE AREA on the left middle screen box as shown. 

This is one feature that will help the user : to have all input echoed back to the 
Screen as it 1s being entered, so that changes can be made on the spot if required. After 
that entry is completed, this data will be written to the screen corresponding to the Line 


entry that was modified, in this case Line I. 


23 
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Figure 8. DATA ENTRY Screen showing Mirror of User Input Values 
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Continuing then, we need to modify some other design parameters for our new 
design, so we'll move on to Line 2, design LENGTH (LPP). For this entry we'll enter 
a 2 for Line 2, then the value 1143.00 that corresponds to our design length. 

Almost as soon as this operation 1s complete, a HELP WINDOW appears be- 
cause We have violated a range requirement of one of the two sets of calculations. 
Which specific equation we violated 1s unknown at this point, but the HELP WINDOW 
tells us that the LENGTH/BEAM RATIO IS OUT OF RANGE for one of the calcu- 
lations, as shown in Figure 9 on page 26. This screen is a timed display screen of the 
type shown in Chapter 2 previously, so it will disappear after approximately 15 seconds. 
The user can keep this display on screen if desired by depressing the VI220 key Fl which 
corresponds to HOLD SCREEN for the VAX system. Then the screen message can be 
copied or noted as to what problems might have arisen. 

Also notice that in Figure 9 on page 26 that the Results Block on the lower 
right corner of the display has been blanked to avoid confusion while this display 1s in 
view. After this display has been in view for 15 seconds, it will disappear from view and 
the algorithm will proceed. Upon completion of the calculations, the results will reap- 
pear and the screen will be updated to include our changes to Line 2. This 1s shown 1n 
Figure 10 on page 27. Notice in this case that the Silverleaf and Dawson result has been 
set to zero, since we exceeded the algorithms limits on Length-to-Beam ratio as deline- 
ated in Equation $. The value we entered is perfectly reasonable; however, we made 
such a drastic change 1n one parameter that 1s linked to another parameter through these 
range limitations that we exceeded the range for + given by Equation 8. This display 
( Figure 10) now shows the value for the Admiralty Prediction, so we can easily guess 
that our data was invalid for the Silverleaf and Dawson Prediction. The Admiralty value 
is valid, we just have no second value to correlate it against as desired. Notice also in 
Figure 10 on page 27 that the Displacement value of Line 5 has been updated using 
Equation I1, assuming a constant C, value. 

Proceeding further towards our goal of entering the TANKER B design data, 
we need to update the next item, Line 3, DESIGN DRAFT. Thus we'll enter a 3 for 
Line 3, then 74.00 for the TANKER B draft. Again, almost unmediately, another HELP 
WINDOW appears, this time displaying a message that we have entered data that makes 
the BEAM; DRAFT RATIO OUT OF RANGE. Again, note that the Results Block has 
been cleared since our design data has changed, making the previous calculations invalid. 


We see this screen display in Figure 11 on page 28. This display shows that the same 
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Figure 9. DATA ENTRY Help Screen Display (1) 


routine is used for all the error messages generated in the calculations section, making 


it an efficient subroutine since it can display context sensitive help messages. 
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Figure 10. DATA ENTRY Display after Update 
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Figure 11. DATA ENTRY Help Screen Display (2) 
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After another 15 second delay, the HELP WINDOW in Figure 11 disappears, 
and we can continue. Proceeding along this route further, we must also change the data 
for Lines 4, 5, and 7 to make all the neccessary changes to get to the TANKER B design 
parameters. Notice here that we will not change Line 6 for the Block Coefficient C,, 
since the algorithm knows that we have uniquely specified Draft, Beam, Length, and 
Displacement, thus from Equation 11 again, the Block Coefficient is directly specified. 
At any time if we change either the Beam, Draft, or Length, then the code recalculates 
Displacement assuming C,; does not change. But if we force a new Displacement, then 
the code calculates a new C, based upon Equation 11 and the specified Length, Beam, 
and Draft. Finally, all the DATA 1s updated and our DATA DISPLAY AREA appears 
similar to Figure 12 on page 30, with all the required data in place and new calculations 
for Predicted Power appear in the Results Block. 

At this point we can enter a simple Return key to exit from KEYBOARD 
ENTRY mode, and the screen appears as in Figure 12 on page 30. The mouse pointer 
is now enabled again, and we can proceed through the menu options. Here it would be 
prudent to save our new data set for later use or retrieval, so we can select Option 3 on 
the menu, STORE DISPLAYED DATA, to a file using the filename we gave on Line 
1. Clicking on that Option will bring up another HELP WINDOW, reminding us to use 
different and unique filenames for our data since saving files under the same name will 
simply overwrite the previous data, rendering it useless in the future. This screen ap- 
pears in Figure 13 on page 31 and uses another timed display dialog box developed in 
Chapter 2 Figure 2 on page 8. 

After the file save operation is complete, the program will inform the user of the 
actual filename saved by writing it to the screen display in the INSTRUCTIONS box 
as shown in Figure 14 on page 32. It is important to note here that the program uses 
a default .DAT filename extension and truncates filenames to an 8.3 format. That 1s, 
eight (8) letters plus the three (3) letters for the .DAT extension. Names longer than this 
will be truncated to this format. 

The user can now select the fourth option on the menu, PLOT GRAPH TO 
SCREEN to have a CA-DISSPLA plot of speed versus power required plotted to the 
VAX terminal screen. Selection of this option will show a screen display as seen in 
Figure 15 on page 33 after the graph is calculated and plotted by the system. This 
process takes a few seconds, so a message appears in the INSTRUCTIONS BOX for the 
user suggesting that they sit back and relax fora moment. The time delay is not all that 


lengthy, and the screen display will soon appear. 


= 


POUR PREDICTION WINDOW 
ATH JISP_HY APCH 
SHIP NAME . BTANKER 
LENGTH (Lpp) ,« 1149%60 
DESIGN DRAFT ......... x0 FAa0@ 
228.00 
450910.0 
0.81836 
15.90 
PROPELLER SPEED . 120.0 


NUMBER OF SHAFTS +0 
#e**eEND OF REQD INPUTS#terennn ananannnnnne 


oonrnown =Ah WwW YY 


PLOT GRAPH TO DISK 


EXIT THE PROGRAM HeHRESULTS Hee 


HHHHREHORSEPOWER. (HP) HAAR RRR RR BERR RH HERR EH 


P=SPONSE HPCH 


53069 

36034. 

INS TFUC TIQNS | UG ae 34229, 
ENTER A LINE NUMBER .BB=.WELL.DESIGNED. BULB. B80w.... 


OR [RETURN] TO EXIT HAHAHAHAHA EREHRAREEEE HHKEHKHEHERERER 





Figure 12. DATA ENTRY Screen Display with all Input Changes 


Here we encounter the first difficult point of the program, deleting the 
CA-DISSPLA plot and continuing our work. Although a number of methods have been 
tried, the easiest method of deleting the plot from the screen is to click the mouse pointer 
on the calling window just visible at the lower edge of the TOOL BOX windows, in order 
to bring this window to the foreground. Now a simple carriage return will delete the plot 
window, and the user can again click the mouse pointer on the TOOL BOX display 
window ( now in the background ) to bring it back to the foreground, and continue. 


This method is archaic, but it is the only consistent method of deleting the display this 
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Figure 13. DATA STORE Display using Timed Dialog Boxes 


author has found. It does not seem entirely intuitive, but it works. A better method 
must be found. 

Alternatively, the user can select the next screen option, Option 5, PLOT 
GRAPH TO DISK to plot the same screen display graph to a disk file. If we select this 
option, again, some time is involved in plotting the CA-DISSPLA graph, so the program 
informs the user of this in the INSTRUCTIONS area as before. 

This graph plotting operation takes approximately 3 minutes to complete with 


no progress updates for the user to follow, so some patience is required. When the plot 
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Figure 14. DATA STORE Filename Screen Display 


is complete, the program informs the user via another HELP WINDOW dialog box 
shown in Figure 16 on page 34 and uses a timed dialog box routine similar to those 
developed previously. This window informs the user of the filename that the graph was 
saved under, STD00001.DAT by default. It also informs the user how to get a hardcopy 
printout of the plot using the high resolution of the VAX Laser printer. 

Upon completion of this display, the user can either EXIT in one of the modes 
discussed before or can continue to develop other ship designs using different parame- 


ters. One further note is needed though; CA-DISSPLA by default appends new plots 
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Figure 15. PLOT GRAPH Screen Display for Screen Plot 


onto old existing plot files under the same filename, so any new plot will not have unique 
VAX/VMS filenames or version numbers. This can be something of a sore spot if you 
only desire the last plot in a large plot file; however, the file can be edited with the EDT 
EDITOR to remove old plots. But a bonus is that new plots will not delete old plots 
since the VAX/VMS system defaults to storing only the two most recent version of a file, 


so no data will be lost due to that method, it may just be at the end of a very large file. 


OS 


HLEP WINooW | 


“ee GAVING DEFINED GRAPH FILE aa 
GRAPH IS BEING WRITTEN TO DISK 
USING THE FILENAME: 

**STDOOOCO1. DAT” 
YOU CAN OBTAIN HARDCOPY PLOTS 
BY THE DCL COMMAND: 
“PRINT /QUEUE=LASER STDOOOO1. DAT” 
AFTER TERMINATION OF TOOLBOX. 


PLEASE WAIT 


**PRESULTS#O* 


HHeREeRHORSEPOWER . (HP) PEER BHEHKHEEERES 


INSTRUCTIONS 
CALCULATING PLOT... .BB=. WELL. DESIGNED. BULB. BOW... . 


PLEASE RELAX & WALT ee ee le le ee oe oe ee dd | 


———— 
Ca J Ld Oe, a> ae - — 


MRUN ON 9/5/7980 USING SERIAL NUMBER 9132 AT NAVY POSTGRAO SCHOOL 
Mm PROPRIETARY SOFTWARE PROOUCT OF COMPUTER ASSOCIATES. INC. 
bilGe VIRTUAL STORAGE REFERENCES: €@ REAOS: O WRITES. 





Figure 16. PLOT GRAPH Screen Display upon Completion of Disk Plot 


Hopefully, we have shown enough of a complete process here to allow a new 


user enough familiarity to accomplish preliminary design tasks using this Module. 
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3. Power Prediction Module Output 
There are four (4) primary outputs of the Power Prediction Module; 
e The screen displays, for quick calculations or information. 
e The saved data file, used alone or in conjunction with the Report Module. 
¢ The Speed-Power Relationship plots. 
¢ The Report Module printout of the Power Prediction data, which is much more 
useful than the second item, but requires the use of another Module. 
a. SCREEN DISPLAYS 
These displays have been dealt with in some depth, and there 1s little else to 
say except to use the program, get familiar with it and its capabilities, and use it as a 
design tool. The speed at which new calculations can be performed by simply changing 
any variable make this type of program excellent for the What if... type of calculations, 
without the boring repetitiveness of hand performed calculations. 
b. STORED DATA FILE 
Figure 17 1s an example of a stored data file typically output from the pro- 


gram. In this case, it corresponds to the previous developmental example, the 
BIANKER.DAT file: 


BTANKER 
1143.0 

74. 000 
220.00 
0. 45091E+06 
0. 81836 


i. 200 
20, 00 
1. 0000 
Ee Oe 7. 
S1s10)6 0 
34229, 





Figure 17. STORED DATA File (Typical); Output from Worked Example 


As it 1s easily seen that, unless the user is familiar with the order of the re- 
sult variables, very little information 1s easily obtained from Figure 17, although all the 


information is there in the same order as the screen displays dealt with previously. 
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c. SPEED-POWER RELATIONSHIP Plots 

Figure 18 on page 37 is also from the BFANKER development and is the 
disk plot that resulted from that data. The screen plot is identical to this plot. 

As can be seen from this figure, much useful information is displayed on this 
plot. In the lower nghthand corner we have both the filename that the plot was devel- 
oped under and the time it was developed. Also, we have a full plot of speed in knots 
versus power in horsepower for the full range of ship speeds from Zero (0.0) to the design 
Operating speed (PW_VK). It is easily noted that all three plots trend upward in a cubic 
relationship to speed through the water. One interesting point however was the tend- 
ency of the Silverleaf and Dawson plots to start at very high power at low speeds, de- 
crease tO a minimum, then trend upwards again similar to the Admiralty plots. This 
error can be ignored since our equations show a definite relationship of speed at or near 
the Boundary Speed V, from Equation 13. At low speeds, the ship speed 1s far away 
from the required proximity to the Boundary Speed, so the prediction may not be en- 
urely valid. That plus the speed-to-length ratio at low speed may preclude the ships 
power from even being predicted at these extremely low speeds. The solution then was 
to find the minimum Predicted Power level and its corresponding speed in the power 
matrix and set all Predicted Power points at speeds slower than that speed equal to the 
minimum Predicted Power. This has the effect of saving to the user that some speed 
exists at Which efficient operation will result in minimum power useage at speeds below 
that particular speed. At operations above that speed, the penalty is seen in the cubic 
growth of the power required curve. This is a side benefit of using this Predicted Power 


curve Relationship that would not have been obvious without the plots. 
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Figure 18. SPEED-POWER RELATIONSHIP Plot 
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d. REPORT MODULE Predicted Power Report 

It was also desired to use the existing Report Module to add an additional 
report using the data generated by the Power Prediction module. This subroutine source 
code is shown in Appendix D and is consistent with the display and data entry format 
of the other Report sections. Again, we will use our BTANKER data file and develop 
an illustrative example for the report generated by this section. 

After the user has finished generating the design data using the Power Pre- 
diction Module, the data file must be saved to user storage and the filename noted for 
future use. Then, exiting the Power Prediction module using the RETURN TO MAIN 
option, the user can now select the MAIN MENUs GENERATE REPORT option us- 
ing the mouse pointer. This selction will produce a new screen display for the Report 
Module as shown in Figure 19 on page 39. This report menu 1s common to all the 
sections of the Report Module, with the new addition of Option 3, CREATE POWER 
PREDIGRIOM RED. 

The user can select this option using the mouse device, and the screen dis- 
play will shift to appear as Figure 20 on page 40, with the users selection highlighted in 
reverse video and the program query filling the night hand side. Here we wul enter 
BIANKER.DAT in response to the programs request for the data filename and exten- 
sion to be used in the report. Notice that what we type 1s also echoed to the screen 
display as we type it. 

Upon entering the data filename as requested, the right hand side of the 
screen display will clear, and again the user will be queried for another entry, this time 
for the filename to be given to the produced report, as shown in Figure 21 on page 4] 
For this we can give anv name desired, however a logical choice would be the same 
filename as the data with a .RPT or .PRN extension to indicate what it contains. We 


have chosen to use BTANKER.PRN, although any other selection would be adequate. 


e Again, the user is cautioned not to use the same name and extension as another 
pre-existing file (unless that data is to be discarded) since the VAX Svstem will only 
save two copies of a file with the same name and extension. Thus it 1s possible for 
old data files to be deleted by the system if the user is not careful. 


Upon entering the output filename and extension as requested in 
Figure 21, the right hand side will again clear, and the report will be written to disk 
Storage using the filename specified by the user. At this point, the user can enter EXIT 
and be returned to the MAIN MENU screen, or the Report we have just generated can 
be sent to an output device. This selection is option 5, PRINT A REPORT, and is 
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Figure 19. REPORT MODULE Opening Screen Display 


shown in Figure 22 on page 42 after the selction has been made. Here the program will 
again query the user for the filename and extension of the report to be printed. Any 
existing filename and extension can be used, but it would be prudent to print out the 
report that we have just finished generating. So here we'll enter BEANKER.PRN as 
requested, which is shown in Figure 22, to complete the action. 

Finally, the program needs to know what output device to be used to pnrint 
the report on, and it will query the user for this information as shown in Figure 23 on 


page 43. At this point we must know the VAX system names for output devices, either 
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Figure 20. REPORT MODULE Request for Data Entry (Input) 


LASER, LA210_i (i= 1,2), or LA75_i (1= 1,2), as valid printing devices. For this exam- 
ple, we'll enter LASER as shown, and the report file will be sent to the named device 
as requested. At this point we can EXIT, or accomplish another print task, if we have 
generated multiple data files from the POWER PREDICTION Module. In this manner, 


multiple reports can be created and printed in one session, so long as unique files contain 


the input data required. 
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Figure 21. REPORT MODULE Request for Data Entry (Output) 
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Figure 22. REPORT MODULE Report Output File Request 
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Figure 23. REPORT MODULE Output Device Request 
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(1) PREDICTED POWER Output Report. Shown in Figure 24 on page 

45 and Figure 25 on page 46 is the Report file created by the Report Module, using the 

data we created from the BIANKER development. As can be seen, some other useful 

information is given in the Report that was not available in either the stored data file 
or via the screen displays. 

We have added a calculation for some of the Coefficients of Form 

that are so readily used in preliminary ship design at various points, and are always 

helpful to have handy. We have made them available here in the Report since they 


would not comfortably fit on the Screen Displavs shown previously. 
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Figure 24. 


REPORT MODULE Output Report, Page 1 of 2 
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Figure 25. REPORT MODULE Output report, Page 2 of 2 
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Ag 


E. CONCLUSIONS 

Thus we conlude the development and examples for the Predicted Power calcu- 
lations section. Using the data displayed in Table 1 on page 17 we can conclude that 
our methods seem reasonably accurate enough for preliminary design work, and cer- 
tainly when both values are available. 

It would be possible to use this Module and the Report with only one of the three 
Power predictions available by the Module, either just the Admiralty Prediction, or the 
two Silverleaf and Dawson Predictions. But this gives us no real fee! for the accuracy 
of the predicted value by cross checking it against another value from an independently 
developed method. But using these figures and some additional data from reference 
material [Ref. 4: p. 127, Ref. 11: p. 16], we can begin to get the preliminary data for 
Machinery plant size, manning requirements, costs, fuel storage requirements, and other 


vital pieces of the puzzle that we need to continue the iteration and design the vessel. 
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IV. ENDURANCE CALCULATIONS 


A. BACKGROUND 

Another useful calculation to perform during Preliminary Ship Design once the ex- 
pected Propulsive Power requirements are known, is the Voyage Endurance calculation. 
From this calculation, a number of useful figures arise: expected range of the vessel at 
design operating speed, the amount of fuel required to be carried for a certain length 
vovage or speed, the added weight of that fuel to the vessels total displacement, and so 
on. These figures will give us the total amount of fuel that needs to be carried, and thus 
the tank volume required to store it, the additional dimensions and size required to 
contain that storage, the relative efficiency of using one type propulsion plant versus 
another, and so forth. Additionally, this type of programmed calculation 1s well suited 
to the Vhat if... type of iterations where design variables are modified to see their 


overall effect upon the design. Specifically, items such as: 


© What if we speed up our transit from xx to yy knots? How will that effect the amount 
of fuel we have to carry? 


e What if we change from geared diesels to steam turbine propulsion equipment? What 
effect will that change in fuel economy have on the amount of fuel we are required to 
carry? 

As we can see here, this application is well suited to the applications of modern GUI 
programming that can reduce or eliminate the need for repetitious hand calculations, 
thus making it relatively simple to modify a parameter of the preliminary design at any 


point and check its effect upon the overall design. 


B. METHODOLOGY 

Basically, we can proceed along one of several directions: (1) we can set the design 
speed and voyage length, then see how much fuel would be required, or (2) we can set 
the amount of fuel carried and how fast we want to go, then see how far we can go, or 
(3) we can set the vovage distance and amount of fuel available, then see how fast we 
can go to get there. The first option, (1), seems to be the most likely candidate for cal- 
culation since it provides the most important factor in this stage of design: the total re- 
quirement of fuel in Weight and volume that we are required to carry. The other options 
can be achieved through an iterative process by adjusting the vovage length or speed to 


get a desired weight of required fuel stowage or fixed volumetric limitations. 
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lerom) several sources [IRef. 6: pp. 173- 174, Ref. 12%: pp. 253- 282], there are al- 
gorithms for calculating endurance based upon all the relevant ship data that should be 
available up to this point in the preliminary design. The essential core parts of the al- 
gorithms are the same however, so we will only examine the most thorough and involved 
method researched. 

I. Method Of U.S. Navy, Design Data Sheets (DDS 9400-1) 

This method, [Ref. 13], utilizes a tabular form provided by the Navy to its sur- 
face combatants to calculate all the essential parameters that we require here for en- 
durance calculations. This method and its form , which is shown in Figure 26 on page 
50, is dated from 01 November 1963, but is still valid in all its calculations. 

In order to complete the calculation, the following sets of data must be known: 

e Endurance Variables: 

(1) Endurance Required (miles) 
(2) Endurance Speed (knots) 
(3) Endurance Fuel Load (tons) 


e Design Parameters: 

(4) Full Load Displacement (Itons) 

(5) Rated Full Power (shp) 

(6) Design Endurance Power (shp; at 1,2, and 3) 
(7) Cruising Electric Load (kW) 

(8) Tailpipe Allowance Factor (%) 


e Engineering Parameters: 

(9) Propulsion Fuel Rate (Ibs/shp- hr) 

(10) Auxiliary Generator Fuel Rate (lbs/kw- hr) 
(11) Other Fuel Consumption (lbs/hr) 


Then, from these sets of numbers, we can proceed to calculate the estimated 
endurance in terms of the amount of fuel we are required to carry, in the following 


manner (using (77) as referring to the data parameter required from the above list): 


]. First we need the Average Endurance Power, estimated as (6) x 1.10. We will call 
this result (A). Then we can find the ratio of (A) to the rated Full Power, 
(A) / (5) and call this result (B). 


2. At (A), we also need to know the Propulsion Fuel Rate in (Ibs/shp- hr). We will 
call this item (C). 
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SECURITY CLASSIFICATION 


(Including Group No.) 
DATE 


APPENDIXS 





SURPAG= SHIPEENGURANCE CALCULATION eae 


DESIGN 
PeeocAneo oo 
Ga = CAS Duy 


(1) Esdurance Required, Miles 

(2) Eadurance Speed, Kaors 

(3) Full Load Displacement, Tons 

(4) Rasred Full Powe:, SHP 

(S$) Design Endurance Power ® (2) & (3), SHP 

(6) Average Endurance Powe:, SHP: 
(5) x 1:10 

(7) Rauo, Avge. End. SHP/rared F.P. SHP: 
(6)/(4) 

(8) Csursing Eleecic Load, K? 

(9) Caleulared Propulsion Fue! Race © (6), 
lbs/SHP -he. 

(10) Cale. Proo. Fuel Consumption, lbs/hr: 
(9) x (6) 

(11) Caic. Aux. Gen. Fuel Rare @ (8), 
Ibs/K T-he. 

(22) Cale. Aux. Gen. Fuel Consumpuon, 
Iss/he: (11) x (8) 

(15) Caiec. Fuel Consumouon For Ocher 
Services, lbsshze. 

(14) Tora! Cale. all-purpose Fuel Consunp- 
tion, Ibs/hs: (10) + (12) + (13) 

(15) Cale. All-purpose Fuel Rare, 1bs/SHP-b:: 
(14)/(G) of Heee Balance 

(18) Fuel Race Correction Facer Based on(7) 

(17) Specified Fuel Race, lbs/SHP-hr: 
(15) 7116) 

(18) Avge. Endurance Fuel Rate, lbs/SHP-br: 
(17 yee 1205 

(19) Endurance Fue! (Surnable), Tons: 
(1) x (6) x (18)/(2) x 2240 

(20) Tailpipe Allowance Faccor 

(21) Endurance Fuel Load, tons: (19)/(20) | 


RES ESSENCES POR SOURGS OF bre. 


Pcie 920: 


Design Enduzance Power 
All-Purpose Fue! Rare 


lastalled Fue] Load 


EXAMPLES 
Sean Diesel or Gas Turbine 
3,000 1,200 
a5 6 
3,000 400 
$0,000 700 
3,00 $0 
3,000 x 1.30 = 3,30 1$0x 1.10 = 165 
066 0.24 
$00 30 
_ 0.$05 
= 0.505 x 165 = 8372 
i 0.690 
_- 0.690 x 30 = 20.8 
— 15.0 (heating) 
_ £3.4x 20.8 + 15.0 = 119m 
1.00 119. 271652— 05722 
1.04 ee 


1.00 x 1.04 = 1.04 


1.04 x 1.05 = 1.092 


3000 x 2300 x 1.092 | 322 


$x 2240 
0.98 
322/0.98 = 32 
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6.722 x 1.04 = 0.750 
6.750 x 1.05 ="05767 


h200)x 165 x 0.787 ae 
6x 2240 
0:95 
11.6/0.95 = Vere 


U.S.N. Design Data Sheet (typical), for Endurance Calculations 


3. Using (C) we can estimate the Propulsion Fuel Consumption, (C) x (A), in (Ibs/hr), 
and label this result (D). 


4. Also, we will need to know the Auxiliary (Electric) Generator Fuel Rate in 
(lbs/kW-hr), and the ‘Other’ Fuel Rate in (lbs’/hr). We will label these as (E) and 
(F). The information required to make these calculations should become available 
after the preliminary Propulsion requirements have been estimated, and a plant 
type is selected from the available literature. 


5. Using (E), we can estimate the Generator Fuel Consumption as (E) x (7), which 
we will label as (G), and then (D) + (G)+(F) which we will call the Total Fuel 
Consumption, (H). 


6. Now we need a Fuel Consumption Correction, based upon the magnitude of (B). 
This parameter will be labeled (1). 


7. Using (1), we can get the Specified Fuel Rate (/) x (A), and label this as (J). 
8. Finally, we can obtain the Average Endurance Fuel Rate, (/) x 1.05, labeled (K). 
9, This figure will give rise to the Theoretical Endurance Fuel required, or 
(1) x (A) x (K) : 
(2) x 2240.0 
which we will label as (L). 


10. Before we can finish the calculation however, we must account for (8), the Tailpipe 
Allowance that indicates how much fuel is carried that is below the suction point 
of the fuel oil transfer system and is thus unaccessible for use. This varies with tank 
gcometry, being 0.95 for broad shallow tanks, and 0.98 for tall narrow tanks. 


11. Using (8), we can calculate the Endurance Fuel Load as (L) / (8) and save this as 
the desired result. 

From the development above, we can easily have the user input the required 
values (1) through (11), and have a simple routine to calculate required fuel load in tons, 
as Well as total trip time at the input values of speed and distance, volumetric storage 
requirements for the fuel using standard conversion factors, and total percent of full load 
devoted to fuel storage. These last parameters are useful for checking the validity of the 


design and whether or not it is reasonable in terms of standard design practices. 


S| 


C. COMPARISON OF THE METHOD 

Using the same Design Data as in Chapter 3 from Reference 4 that was used to 
generate Table 1 on page 17, we can compare our estimated Endurance calculations 
against the actual Endurance Fuel Oil load values of some modern commercial vessels 


at their design endurance load and speed. 


Table 2, COMPARISON OF DDS9400-1 ENDURANCE ESTIMATION 


(Tons Fuel Oil) (Tons Fuel Oil) 

















The values used here in comparison are for a general voyage of 10,000.0 nautical 
miles at rated power, using fuel economy values from the literature [Ref. 11 : p.16], and 
an estimated cruising electric load given by KIV = 0.01Sshp + 1.6N + 9/N + 80.0, where 
shp 1s cruising shaft horsepower and N 1s the number of crew and passengers onboard, 
with the resultant electic load in Kilowatts (kKW).! All other data is obtained from Ref- 
erence 4, pages 137- 171, and the calculations were performed using TOOL BOX screen 


displays.2 


1 Rule-of-Thumb equation for Preliminary Electic Load calculations obtained from Naval Sea 
Systems Command, Washington D.C. 


2 Other standards used for unknown values include: Tailpipe Allowance of 0.95, Auxiliary 
generator fuel oul rate of 0.700 lb/kW-hr, and ‘other’ fuel oil rate of 15.0 lb/hr. 
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D. THE TOOL BOX ENDURANCE ESTIMATION MODULE 
1. Operation of the Endurance Estimation Module 

The major operations of the ENDURANCE Module function the same as all 
the other modules. A quick examination of Figure 27 on page 54, will show that the 
first three mouse selection functions: ENTER DATA FROM KB, READ DATA FROM 
FILE, and STORE DISPLAYED DATA are all consistent functions from the other 
modules. The fourth selection, CALCULATE ENDURANCE LIMIT, performs the ac- 
tual calculation of fuel load for the data as it is shown on the program screen. Notice 
from the screen display shown in Figure 27 that the last two required data points, lines 
10. and I1. are highlighted by an asterisk. These two data points have the calculational 
routine tied in to them so that as this data is modified, the calculations are performed 
and the screen updated immediately. The reasoning for this is that these are the signif- 
icant variables that will be modified most often. Also, these values will most likely not 
be entered until all the other variables are set to non- zero values, saving the time in- 
volved in tracking through the HELP WINDOW error displays during the program in- 
itialization. Otherwise, if a higher line number is modified, the user will need to enter 
the new value, hit RETURN to exit keyboard data entry mode, and click the mouse 
pointer on the fourth selection, CALCULATE ENDURANCE LIMIT. The function- 
ing methodology, data entry process, and HELP windows function simuilarily to the 
POWER ESTIMATION Module that we have just covered in some depth, so they will 
not be repeated here. 

The other new feature that has been added to this module is the fifth mouse 
selection shown in Figure 27, that is labeled CHANGE HELP LEVEL ON/OFF. This 
new feature has been added because of the limitations imposed on the programmer due 
to having onlv a small area available for information presentation to the user in the 
INSTRUCTIONS area at the lower left corner. This small area limits the available 
number of lines of text information that can be presented to the user to provide hints 
or examples of input data that is required. We can easily institute context sensitive 
HELP WINDOWS using our previously developed dialog box routines, but wanted the 
ability to provide the user the ablity to disable HELP information and prompting for 
each value if they desire once they become proficient. This has been accomplished using 
a simple subroutine named SET HELP_LEVEL that is called from the ENDURANCE 
main menu, and resets a pointer that is an input value to the SET HELP windowing 
routine used to create and display the help information. The HELP level setting is ON 
by default each time the ENDURANCE Module is called from the MAIN MENU, so 
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FNHUCANE! PREOTE Titw WINDY 


OPTIONS '=HU | SHTA ISP AY APE 


SHIP NAME 

FULL LOAD DISPLACEMENT (TONS) 22080. 
FULL RATED PLANT POWER (SHP) 17500. 
AVG ENDURANCE POWER (SHP)... 17500. 
CRUISING ELEC LOAD (KW) . 468. 00 
TAIL PIPE ALLOWANCE.... @%).. 

CRUISING MAIN FUEL RATE 

CRUISING ELEC FUEL RATE 

CRUISING OTHER FUEL RATE.... 

10.*EST. ENDURANCE RANGE (MILES). 10000. 
11.*EST. ENDURANCE SPEED (KNOTS). 20.000 


& SHEESH SSSHSESKREEEREEEHEHEEEEEE SHHREEHHERED 


INPUT DATA FROM FILE 


oonaoarwnt &® WN 


**RESULTS FROM CALC#* 
KSRREKKSEERRHKERREKEERKREKESEERRERE &SGSOGE CRE SESE 
EST. ENDURANCE FUEL LOAD (TONS) 2435.4 
500. 00 
INSTRUC TIONS ! FUEL STORAGE REQUIREMENTS (FT“3) 92532. 
SELECT AN OPTION —it«*S FUEL WEIGHT ALLOWANCE (%-FL):.. 14.028 


WITH JHE MDUSE 9 Be Ge We Be HB Se Bede Be Be Oe ee Be Gh Be BN Hh Me TN HT Ree He He OT To a oe 


P= SPONS= HR=H 





Figure 27. ENDURANCE Module Main Data Display Screen 


an advanced user can simply reset the help level indicator upon entering this module if 
they so desire. Figure 28 on page 56 shows this process and the display window that 
informs the user of this selection. Alternatively, the user can set the help level indicator 
back to ON at any time during the progress of the program, without any loss of conti- 
nuity. For this case, the screen display shown would be exactly similar to Figure 28 
except that the instructions would be reversed. 


e NOTE: Setting the HELP_LEVEL indicator to OFF does not disable the presen- 
tation of HELP WINDOWS containing error messages or information messages. 
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This feature solely pertains to the parameter definition displays presented during 
the process of entering data from the keyboard in this module. 

Thus the user has the ability to determine some of the functionality of their 
work environment by changing the way in which information is presented. Once a de- 
sign begins to develop, there will be less need for the parameter definition windows, so 
this option will allow the user the flexibility of definitions only when they are desired. 
The user could also get a program parameter definition by entering that data line num- 


ber while HELP_LEVEL is ON, without changing the actual value entered. 


E. ENDURANCE ESTIMATION MODULE OUTPUT 
Again, the available output methods are essentially similar to those of the other 
modules, except that in this case there is no CA-DISSPLA graph output available. The 
screen displavs, and stored data files are all closely related to those presented previously, 
SO We Won't devote space to reviewing them. 
Il REPORT MODULE Estimated Endurance report 
Examining the printed report available from the REPORT Module, we are pre- 
sented with a two page report detailing all the Endurance variables and the results 
obtainined from the ENDURANCE Module as shown in Figure 29 on page 57, and 
Figure 30 on page 58. The method of obtaining a final printout of the report 1s identical 
to that used by any of the other modules incorporated into TOOL BOX, and any 


printout device available may be used. 


F. CONCLUSIONS 

Thus we conclude the development and discussion of the Endurance Estimation 
Module. The usefulness of the information calculated here can be very helpful in de- 
termining the size of the storage tanks used for Fuel Oil, the predicted or estimated 
amount of Fuel Oil stowage required in tons, and the percent of full load that this 
amount constitutes. The parameters that we have calculated all become essential ele- 
ments of the iterative design process shown in Figure | on page 3, and thus the easier 
we can make the process of obtaining them, then the entire design process will become 


easier. 


mit VINbOW 


HELP SYSTEM SETTINGS 
CHANGING HELP LEVEL FROM 
HELP WINDOWS ON 

TO 
HELP WInbDows 


PLEASE WAIT 


@ e & Vy, 948 18,0 


9S. CRUISING OTHER FUEL RATE.... 15.000 
10.*EST. ENDURANCE RANGE (MILES). 10000. 
11.*EST. ENDURANCE SPEED (KNOTS). 29.000 


HEART AAAAATREAARAAAARREAATAAAREAE RHFKKRARERASH 


EXIT THE PROGRAM 


PESPONS= HR=H 
HRHHRRRREAHHEARHHRREREHHHHREGHEEE SHHHKREHHERROD 


**RESULTS FROM CALC** 


EST. ENDURANCE FUEL LOAD (TONS) 2435.4 
500.00 


INSTRUC TIONS FUEL STORAGE REQUIREMENTS (FT“3) 92532. 
SELECT AN OPTION FUEL WEIGHT ALLOWANCE (%-FL):.. 11.028 


FRARAKKEAEEEAAHSHFERAREAARAAHBEREA REAHKAEAAARRER 


WITH THE MOUSE 





Figure 28. User Display during Resetting of the Help Level 
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TOOL BOX 
ENDURANCE LIMIT REPORT 
RAKKARAERAKAKAAREKARE REAR ER 
THIS REPORT WAS GENERATED USING THE PROGRAM 
TOOL BOX WHICH WAS DEVELOPED FOR THE NAVAL 
ENGINEERING DEPARTMENT OF THE 
NAVAL POSTGRADUATE SCHOOL 


MONTEREY, CALIFORNIA 


PROFESSOR F. PAPOULIAS 
AND 


LT. GERALD MCGOWAN 
LT. JAMES PLOSAY 
tye o7 30 


PAGE 1 °OF 2 7 ENDURANCE LIMIT 


igure 29. Endurance Estimation Report, page 1 of 2 
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Figure 30. 


THE REPORT IS LOCATED IN FILE 


THE INPUT SHIP PARAMETERS ARE AS 


THE INPUT DATA FILE USED Is 


KRAEMER RAKE AAKAAEAAAKRAKREAKREKREARK EEK 


SHIP NAME Is 


DESIGN 
DESIGN 
DESIGN 
DESIGN 
DESIGN 
DESIGN 
DESIGN 
DESIGN 
DESIGN 


DESIGN 


FULL] LOAD DISPLACEMENT: . 


{LTONS ) 


(SHP) 


ENDURANCE POWER LEVEL:. 


(SHP) 


DESI 


CRUISING ELECTRIC LOAD:. 


(KW) 


° 
s 


a 


8 


GN PARAMETERS 


ENDURANCE LIMIT REPORT 


FUEL TANKS TAIL PIPE ALLOWANCE:. 


(%) 
MAIN 


PROPULSION FUEL ECONOM:: 
(LES/SHF-HR) 


ELECTRIC PLANT FUEL USE RATE:.... 


(LBS/KW-HR) 
OTBERSEUELSUSE RATES aaa. 
(LBS/HR) 
RANGE? a. 
(NMILES ) 
CRUISING SPEC eee. 


(KNOTS ) 


(TONS-FUEL OIL) 


eet e8e@ 


CALCULATED JOURNEY TIME ALLOWANCE:..... 


(HRS @€ DESIGN SPD & DISTANCE) 
CALCULATED FUEL STORAGESREQOUILREMEN TS 2. cae 


(FT"3 VOLUMETRIC STORAGE) 
CALCULATED FUEL RATIO OF FULL LOAD:.... 
(% OF DESIGN FULL LOAD) 


FOLLOWS 


dtanker.prn 
dtanker.dat 


oe se ees ees @ 8 @ 


o@#ee#e#eee8 © 8 @ 


oe#eee#smt ee eee 


ee 8 8 @ 6 on. @© @ @ 


AKA RE K AAR AKE RE KKAKKEKKK KARE AKA EEE 


ENDURANCE LIMIT VALUES PRESENTED ARE BASED UPON 
FOLLOWING: 


(OS Ue, 
CALCULATIONS USING ESTIMATION 


S. NAVY DESIGN DATA SHEET DDS9400-1 
FACTORS uGe 


FOULING, 


MACHINERY 


ENE PIG LEN et os: 


KKAAAKRHAAAAAAEAARKRAARAER ARR AAKRAKRARAKR RHEE HHH HEE He Hee Eee De 


PAGE 2 OF 2 / ENDURANCE LIMIT 


FORMAT 


Eas 


Endurance Estimation Report, page 2 of 2 


3§ 


dtanker 
Zz20 81070 
1750 00 
16000.0 
500.000 
0.950000 
0.450000 
0.250000E-01 
0.100000E-01 
3000.00 
21.9000 
552-260 
136.990 
20986.0 
2.9026 


V. CONCLUSIONS AND RECOMMENDATIONS 


A. WINDOWING GUI’S AND PRELIMINARY SHIP DESIGN 

We have seen in the original paper [ Ref. 3] that we could design and program a 
Windowing GUI to accomplish preliminary ship design calculations using the capabili- 
ties of the VAX/VMS User Interface Services (UIS) routines and the FORTRAN pro- 
gramming language. Further, we have shown here that we could use these capabilities 
to provide context sensitive HELP information to the user, and enhance the user inter- 
face by the addition of Dialog boxes that provide information at appropriate moments 
during the execution of the program, thus negating a requirement to have a Users 
Manual handy at all times, or to require specific and lengthy training in the use of the 


program. 


B. CONCLUSIONS 

These capabilities provide us with the ability to develop a powerful and easy to use 
in-house development environment for working with preliminary design problems that 
is easily expanded with new Modules and calculational routines as the needs of the 
Students and Faculty evolve, and that places no limitations on the developer. Specif- 
ically, we can summarize the attributes of TOOL BOX in the following manner: 


e Easily utilized by design engineers and students, without lengthy training or com- 
plicated users manuals, to provide basic ship design parameters and study the ef- 
fects of changing those parameters in an interactive design environment using 
modern graphical programming techniques. 


¢ Follows accepted progression along an Iterative Design Spiral commonly in use in 
the Marine Industry todav, thus affording the developer a logical progression thru 
the Preliminary Design process. 


e Provides valuable information in a timely fashion to the developer in an easily ac- 
cessed manner, thus avoiding the constraints of current Computer Aided Design 
(CAD) programs that do not utilize modularity. 


¢ Easily enhanced by the addition or modification of any module. 


/ 


¢ Easily programmed in whatever development language is most familiar or appro- 
priate. Here we have used FORTRAN; the UIS routines however are non-specific, 
and can be utilized by any language supported on the VAX Network, including C 
and PASCAL. 
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C. RECOMMENDATIONS 


Throughout the design and programming of the additions to TOOL BOX that we 


have made, we have kept a fairly lengthy wish list of things that we would do better or 


different given the opportunity. Things that I feel need to be accomplished in the next 


version include the following: 


Continue the progression along the Iterative Design Spiral, continuing to add 
functionality and utility to the core TOOL BOX code. 


Figure out a method of having more AST functions enabled simulaneously than 
we now use. I[t has been reported by the original author that too many of these 
functions enabled simultaneously causes a system slow-down and sluggishness. 
There should be a means to get around this capability. 


Reprogram the opening menu, and perhaps the Module menus, to accomodate a 
wider range of user choices. As it stands currently, the Opening Menu has a single 
RESERVE module left for use. This needs to be increased if we are going to 
accomodate the entire design spiral of Figure | on page 3 into TOOL BOX. The 
mouse boxes could be made smaller or grouped into two or more columns to 
accomodate this feature. 


Another possibility would be to group the Module functions into sub-groups, per- 
haps having a single Main Menu box used to select the two functions we have ac- 
complished here, instead of each Module having its own selection box on the Main 
menu. Then there would need to be sub-menus to select which of the two functions 
was desired from those available to the sub-group. 


Enhanced use of color would make the system more user friendlv and visually at- 
tractive. The HELP windows could easily be made different in color from the rest 
of the program, thus distinguishing them from the main program. 


Find a means of adding a FILE-NOT-FOUND recovery capability to the READ 
DATA FROM FILE selections that appear on all of the Module menus, thus 
avoiding program crashes due to a simple spelling mistake in data entry procedures. 


Find a means, perhaps thru some assembly language routines, to significantly in- 
crease the speed of the program. There are a few places where the svstem response 
has diminished as the code size grew. This program now accounts for roughly 8000 
lines of FORTRAN source code, a language that has never been Known for its 
speed. 


Finally, our last recommendation is that the development of TOOL BOX continue 


along these lines and those already established. This program could become a unique 


and easily adaptable rool for the Total Ship Systems Engineering (TSSE) curriculum at 


NPS Monterey. This program would provide a friendly computer-based development 


environment for the TSSE students and greatly aid in preliminary design problems, thus 


allowing the students to concentrate on new technologies and methods, rather than 


laboriously computing oft-required, and oft-changing variable parameters such as those 


Dre vided mere. 
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Complete copies of the TOOL BOX source code, including parts not covered in this 
document, may be obtained from Professor F.A. Papoulias, Code ME/Pa, Naval Post- 
graduate School, Monterey CA 94943-5000. 
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APPENDIX A. TYPICAL DIALOG BOX SOURCE CODE 


A. VISUAL DISPLAY INFORMATION BOX 
This is the source code for the pop-up information display boxes utilized in the 


program. 


SUBROUTINE SHOW_SAVE 
Crcvtdededededededede de dedevede deve de deve sede vedo vee He deve ve dese deve Te ve He deve Fev Fe Fe Fe Tove Fe Tek Tove He Fede He He Fe He Fe Fe He TeHe He He HF HK 


THIS SUBROUTINE POPS UP A DIALOG BOX TO INSTRUCT THE USER NOT 
TO USE THE SAME DATA FILE NAME AS USED IN A PREVIOUS PROGRAM 
SECTION [SINCE IT WILL OVERWRITE THE OLD ONE CAUSING ERRORS 
OR LOST DATA]. IT IT CALLED BY THE SUBROUTINE THAT SAVES THE 
DATA FILES 


a a ee es 


Jedevededesedesedeskdededcdededededk dededesevesedeve sess dk deve se dededek seskesedesk dedeseak desk kk dededede devon dedesedededededk devesedeveds 


amoaqanaaa’ga’aan 


IMPLICIT INTEGER(A-Z) 
INCLUDE SYS$LIBRARY: UISENTRY ' 
INCLUDE "SYS § LIBRARY: UISUSRDEF' 
CHARACTER*34 SAVE1/'%%** SAVING DEFINED DATA FILE *** '/ 
CHARACTER*34 SAVE2/' DO NOT USE SAME NAME & EXTENSION / 
CHARACTER*34 SAVE3/'AS DATA FILE FOR OTHER SUB-SECTION ' ws 
CHARACTER*34 SAVE4/ PLEASE WAI)... sees eee 
GHARAGTERY 34 (SAVES) ater eee PROGRAM WILL RESUME’ / 
REAL Y_POSN 
CrreerereCREATE THE DISPLAY FOR THE DIALOG BOX 
VD_SAVE=UISSCREATE_DISPLAY(0.0,0.0,10.0,5.0,20.0,6. 0) 
CrvereresCREATE THE WINDOW TO DISPLAY THE TEXT IN 
WD_SAVE=UISSCREATE_WINDOW( VD_SAVE, 'SYSSWORKSTATION' , ‘HELP BOX’ ) 
CreverereesCOPY ATTRIBUTE BLOCK '0' AS BLOCK '21' AND CHANGE THE FONT SIZE 
CALL UISSSET_FONT( VD_SAVE, 0,21, ‘DTABERORO3WKOO0GG0001UZZZZ02A000' ) 
Cxsreve"e7*S ITGNAL THE USER TO GET THEIR ATTENTION 
CALL UISSSOUND_BELL('SYSSWORKSTATION' ,4) 
Creer WRITE THE TEXT INTO THE WINDOW 
Y_POSN=4. 0 
CALL UISSTEXT( VD_SAVE, 21,SAVE1,0. 2, Y_POSN) 
Y_POSN=Y_POSN-. 8 
CALL UISSTEXT( VD_SAVE ,21,SAVE2,0. 2, Y_POSN) 
Y_POSN=Y_POSN-. 8 
CALL UISSTEXT( VD_SAVE, 21,SAVE3,0. 2, Y_POSN) 
Y_POSN=Y_POSN-. 8 
CALL UISSTEXT( VD_SAVE, 21,SAVE4,0. 2, Y_POSN) 
Y_POSN=Y_POSN-. 8 
CALL UISSTEXT( VD_SAVE ,21,SAVE5,0. 2, Y_POSN) 
CxS PAWN A NEW PROCESS TO WAIT 15 SECONDS AND COMPLETE PROCESS 
CALL LIBSSPAWN('WAIT 00: 00: 15') 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION’ ,4) 
CALL UISSDELETE_DISPLAY( VD_SAVE) 
RETURN 
END 
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B. CONVERSATIONAL DIALOG BOX 


This segment of code produces the dialog boxes that require user input to continue. 


SUBROUTINE NOWHERE 
Cre aed dese dese sede Hee Ve HHA AA HH HAAR A KAHNE KHER TENE HEHE EH TEKIN TEE HEME IEE HIER TER ITE TE HIN IIIT 


¥ 
THIS SUBROUTINE IS CALLED BY A MOUSE BUTTON SELECTION OF AN * 
OPTION THAT IS NOT ENABLED YET. IT POPS UP A DIALOG 'HELP' * 
BOX THAT INSTRUCTS THE USER AND GIVES THEM THE OPTION OF * 
CONTINUING BACK TO THE PROGRAM AT THE POINT OF INTERRUPTION * 
OR ENDING THE PROGRAM ENTIRELY. * 

* 


Kicdeesescscdesededeskevedededesesededesdededede de sede de ese vested Fete sede te Fe tedede Fete Fede Ketek kkk kieksy 


Se i i ap il cae al em a ep Lt ap) ape a a 


IMPLICIT INTEGER(A-Z) 

INCLUDE 'SYSSLIBRARY: UISENTRY'’ 

INCLUDE 'SYSSLIBRARY: UISUSRDEF' 

CHARACTER*34 HINT1/'*%** THIS FEATURE NOT AVAILABLE **%*' / 


CHARACTER*34 HINT2/' TYPE "CONTINUE" TO RESUME . 
CHARACTER*34 HINT3/' OR "EXIT" TO END PROGRAM i, 
REAL Y_POSN 


Creek CREATE THE DISPLAY WINDOW FOR THE DIALOG BOX 
VD_TEST=UISSCREATE_DISPLAY(0.0,0.0,10.0,5.0,20.0,5.0) 
Cx CREATE THE WINDOW TO DISPLAY THE HELP TEXT 
WD_TEST=UISSCREATE_WINDOW(VD_TEST, 'SYSSWORKSTATION' , 'HELP BOX’) 
Creee*SET THE SCREEN FONTS WE DESIRE FROM ATTRIBUTE BLOCK '0' TO BLOCK 
Creer '21' AND CALL THE FILENAME OF THE FONT 
CALL UISSSET_FONT( VD_TEST,0,21, 'DTABERORO3WKO0GGO001UZZ2Z02A000' ) 
Crk STGNAL THE USER ON PROCESS PAUSE FOR DISPLAY OF HELP BOX 
CALL UISSSOUND_BELL('SYSSWORKSTATION’ ,4) 
Cx%ee*e*PRINT THE TEXT AS WE WANT IT 
Y_POSN=4. 0 
CALL UISSTEXT(VD_TEST, 21,HINT1,0. 4,Y_POSN) 
Y_POSN=Y_POSN-1 
CALL UISSTEXT( VD_TEST, 21,HINT2,0. 4, Y_POSN) 
Y_POSN=Y_POSN-1 
CALL UISSTEXT( VD_TEST, 21,HINT3,0.4,Y_POSN) 
PAUSE 
Cxk**FSTGNAL THE USER PROCESS RESTARTED 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 
Cree RETURN TO CALLING PROCESS AT POINT OF INTERRUPT 
CALL UISSDELETE_DISPLAY( VD_TEST) 
RETURN 
END 
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APPENDIX B. TOOL BOX POWER PREDICTION 


A. SUBROUTINE POWER SOURCE CODE 

This is the source code for the TOOL BOX Power Prediction module and all the 
subroutines called by the module. The INCLUDE File TOP_POWER.FOR follows this 
section. 


SUBROUTINE POWER 
Crerederededesede deve sede dese dese HMRI III KIKI IK RIKI IIT RIKKI IRR IKEEERERERERER 


C ¥ 
C THIS SUBROUTINE IS THE MAIN PART OF PROPULSIVE POWER CALCULATIONS. * 
C IT SETS UP SCREENS AND CONTROLS POWER PROGRAM ACTIONS. * 
C ¥ 
C IT IS CALLED FROM THE MAIN TOOL BOX MENU BY THE "POWER PREDICTION" * 
C SELECTION USING THE MOUSE. IT REQUIRES THE FOLLOWING INPUTS FOR * 
C OPERATION AFTER INITIALIZATION: * 
6 PW FNAME SHIP NAME GIVEN TO SAVED DATA FILES CHAR * 
Gg PW_LPP SHIP LENGTH BETWEEN PERPENDICULARS (FT) REAL * 
C PW_NSHAFT NUMBER OF PROPULSION SHAFTS (. 1 OR 2 ) REAL * 
C PW_DISP DISPLACEMENT (TONS STD SEAWATER) REAL * 
6 PW_VK SHIP SPEED (KTS) REAL * 
C PW_B SHIP BEAM (FT) REAL * 
C PW_T SHIP DRAFT (FT) REAL we 
6 PW_CB SHIP BLOCK COEFFICIENT REAL * 
C PW_NRPM SHAFT SPEED (RPM) REAL co 
CG ¥ 
C AND CALCULATES THE FOLLOWING INTERMEDIATE VALUES: * 
C PW_NRPS SHAFT SPEED (RPS) ¥ 
C PW_LPPM SHIP LENGTH BETWEEN PERPENDICULARS (METERS) * 
C PW_VKM SHIP SPEED (METERS PER SECOND) * 
CG PW_DISPM SHIP DISPLACEMENT (METRIC TONS) * 
6 PW_VB S&D BOUNDARY SPEED VALUE * 
C PW_SLR S&D SPEED-LENGTH RATIO * 
C PW_BTR S&D BEAM-DRAFT RATIO * 
C PW_LBR S&D LENGTH-BEAM RATIO * 
© &&&Eh8& AND OTHER CALCULATION-SPECIFIC VARIABLES * 
(ge ¥ 
C AND OUTPUTS THE FOLLOWING VALUES: * 
e PW_ADME ADMIRALTY POWER PREDICTION * 
C PW_SDNB S&D PREDICTION FOR NO BULBOUS BOW * 
€ PW_SDBB S&D PREDICTION FOR SHIP INCLUDING A BULBOUS BOW * 
6 HIesededsey ALL INPUT DESIGN VARIABLES * 
C &&&Sh8& UPDATED VALUES OF INPUTS IF ANY PARAMETER CHANGES * 
C ¥ 
C ALL PARAMETERS ARE PASSED IN COMMON BY THE INCLUDE 'TOP_POWER.FOR' * 
C FILE THAT HAS ALL THE PARAMETER DEFINITIONS, TYPE STATEMENTS, * 
G AND SET UP. * 
G te 
C CALLED BY MAIN MODULE 'TOOL_BOX' * 


CALLS SUBROUTINES "POWER_KB _DATA_ IN' ,'PW_READ _FILE' » PW_ RECORD' * 
'PW_CALC_1','POWER_GRAPH' ,"TO_MAIN’ ,AND ‘EXIT! “ 
a 
Jeseseskcaicceslcacaccc de deuce skedlkeskskccovckeceseskskovovcedcaktskdeskseskescacvdestet seseskesesesicskesesesdestdesesesesesedesdescccvkesescsesesesesesese 
INCLUDE ‘GENERAL. FOR' 
INCLUDE 'TOP_POWER. FOR' 
EXTERNAL TO_MAIN,EXIT, DARK2 , LIGHT2 ,NOWHERE , PW_CALC_2 
EXTERNAL POWER_KB_DATA_IN, PW_RECORD, PW_READ_FILE,PW_CALC_1 
EXTERNAL PW_SDI_LABEL, PW_SORT, PW_FAIL, POWER_GRAPH 
EXTERNAL G_DISK,G_SCREEN 
Cree TNITIALIZE THE PARAMETERS TO AVOID DIVIDE BY ZERO ERRORS. ALSO 
THIS INSURES THAT WHEN WE INITIALLY CALL THE KEYBOARD DATA ENTRY 
ROUTINE THAT THE DATA PASSES ALL THE 'PW_CALC_2' FAILURE 
CRITERION. OTHERWISE WE HAVE THE POTENTIAL TO TAKE "FOREVER" 
WAITING THROUGH THE HELP SCREENS AS WE SLOWLY ENTER OUR DESIGN 
DATA. ALSO, IT GIVES THE USER AN IDEA OF WHAT KIND OF SHIP 
WILL GENERATE VALID DATA. 
IF ( PW_TIMES .EQ. O ) THEN 
PW_KB_UP(1)='"GENCARGO' 
PW_INFILE='GENCARGO' 
PW_FNAME='GENCARGO. DAT' 
PW_NSHAFT=1. 0 
PW_KB_UP(9)='1.0' 
PW_VK=20. 80 
PW_KB_UP(7)='20. 80' 
PW_LPP=582. 50 
PW_KB_UP(2)='582. 50' 
PW_T=35.0 
PW_KB_UP(3)='35.0' 
PW_B=82. 0 
PW_KB_UP(4)=' 82. 0' 
PW_DISP=31995. 0 
PW_KB_UP(5)='31995.0' 
PW_CB=0. 6698 
PW_KB_UP(6)='0. 66980' 
PW _NRPM=120. 0 
PW_KB_UP(8)='120.0' 
ENDIF 
PW_TIMES=PW_TIMES+1 
Crue ERASE THE DATA AREA 
CALL UISSERASE(VD_ID,3.6,10.1,9.9,18.5) 
C*e**REMOVE THE MOUSE POINTER TO SOME OTHER AREA 
STA = UISSSET_POINTER_POSITION( VD_ID,WD_MAIN,9.9,4.5) 


CaO) C2 CD 


OO) Gere) 


WD_POWER=UIS$CREATE_WINDOW(VD_ID,'SYSSWORKSTATION' ,' POWER 
& PREDICTION WINDOW',-.5,9.9,10. 1,19. ,40. ,30. ) 
DO 10 Y_COOR = 13.1,18.4,.8 
DY = Y_COOR + .2 
CALL UISS$SET_POINTER_AST(VD_ID,WD_POWER, DARK2, ,X0,Y_COOR,X1, 
&  DY,LIGHT2) 
10 CONTINUE 
CeteeeeSET MENU TITLES 
OPTION(11) = OPTION(21) 
OPTION(12) = OPTION(20) 
Cree WRITE SCREEN 
CALL UISSTEXT(VD_ID,0,OPTION(11),.3,15.1) 
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CALL UISSTEXT(VD_ID,0,OPTION(12),. 3,15. 9) 

CALL UISSSET_BUTTON_AST(VD_ID,WD_POWER,EXIT,,,X0,13.0, 
X1,13.4) 

CALL UISSSET_BUTTON_AST(VD_ID,WD_POWER,TO_MAIN, ,,X0,13. 8, 
X1,14. 2) 

CALL UISSSET_BUTTON_AST(VD_ID,WD_POWER,G_SCREEN, , ,X0,14. 6, 
X1,15.0) 

CALL UISSSET_BUTTON_AST(VD_ID,WD_POWER,G_DISK,, ,X0,15.4, - 
X1,15. 8) 

CALL UIS$SET_BUTTON_AST(VD_ID,WD_POWER, PW_RECORD, , ,X0,16. 2, 
X1,16. 6) | 

CALL UISSSET_BUTTON_AST(VD_ID,WD_POWER, PW_READ_FILE, , ,XO 
Sie Gl 7 AS 

CALL UISSSET_BUTTON_AST(VD_ID,WD_POWER,POWER_KB_DATA_IN, 
Rex Os 17 16 Meee G25) 

19 WNDOW = WD_POWER 

20 RETURN 

END 


PrP fF ©. © — 2 & 


CS 
C 
SUBROUTINE POWER_KB_DATA_IN 
CERMAK KR Tee eR Fe TENN Te TIT FIR FER EERERRE RE RRE RENE EK 


ie * 
C THE POWER_KB_DATA_IN ROUTINES LOAD IN KB DATA AND ALLOWS * 
C THE OPERATOR TO CHANGE INPUTS AND SEE REAL TIME EFFECTS * 
& OF THOSE CHANGES ON THE POWERING CHARACTERISTICS OF THE * 
C PRELIMINARY DESIGN. * 
6 ¥ 
C CALLED BY SUBROUTINE 'POWER' * 
C CALLS SUBROUTINES 'PW_SDI_LABEL' ,'KEY_READ' ,'PW_SORT', ¥ 
C "PW_CALC_1' of 
Cvtdedevedededede de lededs RCL RIOR REREEREERRE RR EER ETRE RTE ER REE RERREERERE EERE 
c 


INCLUDE ‘TOP. FOR' 
INCLUDE 'TOP_POWER. FOR' 
REAL PW_LINE_NO 
STA=UISSSET_POINTER_POSITION( VD_ID,WD_POWER,9. 9,14. 5) 
KB_ID=UISSCREATE_KB( 'SYSSWORKSTATION' ) 
CALL UISSENABLE_KB( KB_ID,WD_POWER) 
CxweeeFIRST, WE WE WRITE UP THE LINE LABLES AND FIRST INSTRUCTIONS 
CALL PW_SDI_LABEL(VD_ID) 
Crsr%e%e%%SECOND, CALCULATE AND DISPLAY STARTING VALUES 
CALE PW CALGal 
C%*%%%*THIRD, ALLOW USER TO CHANGE INPUT THEN 
Cxree*eRECALCULATE RESULTS IN REAL TIME 
1 CALL UISSERASE(VD_ID,-0.4,10.1,3.4,10.9) 
CALL UISSTEXT(VD_ID,7,'ENTER A LINE NUMBER’ ,0.0,11.0) 
CALE, UISSTEXTCVD.1D,7, OR ®| RETURN] TeeEx ltOe0 1046) 
3 CALL KEY_READ (PW_LINE,. TRUE. ,0.0,12.0,*300) 
READ (PW_LINE,FMT='(F2.0)',ERR = 5) PW_LINE_NO 
PLINE_NO = INT( PW_LINE_NO) 
GO TO (10,20,30,40,50,60,70,80,90) PLINE_NO 
E 
Creeewe TF IT GETS TO HERE A MISTAKE HAS BEEN MADE SovetedededesevetedekeseveseteeKeKEKI 
€ 
5 CALL UISSERASE(VD_ID,-0.4,10.1,3.4,10.9) 
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10 


20 


30 


40 


50 


60 


CALL UISSTEXT(VD_ID,7,' IMPROPER LINE NUMBER’ ,0. 0 
CALL UISSTEXT(VD_ID,7,'ENTER A NEW NUMBER PLEASE 


ECIGs > 


CALL PW_SORT( PLINE_NO,DEL_Y, PW_LINE,*300) 
PW_KB_UP(1) = PW_LINE 

PW_INFILE = PW_LINE 

READ (PW_LINE, FMT='(G)',ERR = 5) 

WRITE (PW _KB_UP(1), FMT= (A)') PW_INFILE 
GALL UISSERASE( VD_1D,8.2,17.91,9.9,18. 3) 
GALL ULSSTEAT( VD_1ID.,7,PW_KB_UP(1),8. 2,18. 2) 
GOTO 1 


CALL PW_SORT( PLINE_NO,DEL_Y, PW_LINE,*300) 
PW_KB_UP(2) = PW_LINE 

READ (PW_LINE, FMT='(G)',ERR = 5) PW_LPP 
PW_DISP = PW_CB*PW_LPP*PW_B*PW_T/35 

WRITE (PW_KB_UP(5), FMT='(G12.5)') PW_DISP 
GALL UISSERASE( VD_ID,8.2,16.3,9.9,16. 7) 
PALL UlsoteAl( VD_ID,7,PW_KB_UP(5) ,8. 2,16. 6) 
CALL PW_CALC_1 

GOTO 1 


CALL PW_SORT( PLINE_NO,DEL_Y,PW_LINE,*300) 
PW_KB_UP(3) = PW_LINE 

READ (PW _LINE, FMT='(G)',ERR = 5) PW_T 
PW_DISP = PW_CB*PW_LPP*PW_B*PW_T/35 

WRITE (PW_KB_UP(5), FMT='(G12.5)') PW_DISP 
CALL UISSERASE( VD_ID,8. 2,16.3,9.9,16. 7) 
CALL ULSSTEXT( VD_1D,7)PW_KB_UP(5),8. 2,16: 6) 
Chil, PW CALC =1 

GOTO 1 


CALL PW_SORT( PLINE_NO,DEL_Y, PW_LINE, *300) 
Pw_KB_UP(4) = PW_LINE 

READ (PW_LINE, FMT='(G)',ERR = 5) PW_B 
PW_DISP = PW_CB*PW_LPP**PW_B*PW_T/35 

WRITE (PW_KB_UP(5), FMT='(G12.5)') PW_DISP 
CALL UISSERASE( VD_ID,8. 2,16. 3,9.9,16. 7) 
CALL UISSTEXT( VD_ID,7,PW_KB_UP(5) ,8. 2,16. 6) 
@AiL PW_CALC 1 

GOTO 1 


CALL PW_SORT( PLINE_NO,DEL_Y, PW_LINE,*300) 
PW_KB_UP(5) = PW_LINE 

READ (PW_LINE, FMT='(G)',ERR = 5) PW_DISP 
PW_CB=35**PW_DISP/( PW_LPP**PW_B**PW_T) 

WRITE (PW_KB_UP(6), FMT='(G12.5)') PW_CB 
CALL UISSERASE( VD_ID,8. 2,15.9,9.9,16. 3) 
CAbl) GlssTENT( VD _1D,7,PW.KE_UP(6),8. 2, 16.2) 
CALL PW_CALC_1 

GOTO 1 


CALL PW_SORT( PLINE_NO,DEL_Y, PW_LINE, *300) 


PW_KB_UP(6) = PW_LINE 
READ (PW_LINE, FMT='(G)',ERR = 5) PW_CB 
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PW_DISP = PW_CB*PW_LPP*PW_B*PW_T/35 

WRITE (PW_KB_UP(5), FMT='(G12.5)') PW_DISP 
CALL UISSERASE(VD_ID,8. 2,16. 3,9.9,16. 7) 
CALL UISSTEXT(VD_ID,7,PW_KB_UP(5),8.2,16. 6) 
CALL PW_CALC_1 

Earoet 


70 CALL PW_SORT( PLINE_NO, DEL_Y,PW_LINE,*300) 
PW_KB_UP(7) = PW_LINE 
READ (PW_LINE, FNT='(G)',ERR = 5) PW_VK 
WRITE (PW_KB_UP(7), FMT='(G12.5)') PW_VK 
CALL -PWoGALGal 
GOTO 1 


80 CALL PW_SORT( PLINE_NO,DEL_Y,PW_LINE,*300) 
PW_KB_UP(8) = PW_LINE 
READ (PW_LINE, FMT='(G)' 
WRITE (PW_KB_UP(8), FMT= 
CAGE EW eSne. 1 
GOTO 1 


ERR = 5) PW_NRPM 


'(G12.5)') PW_NRPM 


90 CALL PW_SORT( PLINE_NO,DEL_Y,PW_LINE,*300) 
PW_KB_UP(9) = PW_LINE 
READ (PW_LINE, FMT='(G)',ERR = 5) PW_NSHAFT 
WRITE (PW_KB_UP(9), FMT='(G12.5)') PW _NSHAFT 
CAL EW aCA lees 
GOTO 1 


300 CALL UISSDISABLE_KB(KB_ID) 
CALL UISSERASE(VD_ID,-.4,10.1,3.4,10. 9) 
CALL UISSTEXT(VDlID.7 ~ SELECD AN OPTION 50.) unm 
CALL UISSTEXT(VD_ID,7,, WITH THE HOUSEN Ou lem: 


RETURN 

END 
C 
C 

SUBROUTINE PW_SORT( PLINE_NO, DEL_Y, PW_LINE ,COUNT,*) 
CF tet sede de Fede ds Tere Tee ae TOTS ETS TEETER ETE TS TERETE TE TE TE TE TE TE TS TET TE TS TEEE TET TEES ESTE TCE TEETER IER ETRE TEER ICE RTE 
C a 
C SUBROUTINE PW_SORT SORTS OUT THE LINE NUMBER TO THE We 
C VARIABLE INVOLVED AND CALLS THE APPROPRIATE SCREEN * 
C INSTRUCTION TO BE WRITTEN IN THE INSTRUCTION BOX. we 
G v 
( CALLS SUBROUTINE ‘KEY_READ' co 
Crsvededededsdededs ve dese vevede te de ve ae de ded Fo Fe Fe Fe Tete He Fe Ne Te Vee Fe Fe Te FEM Ae Te Te Te TS CEH HEH TIE TE Fe eI RK 
C 


INCLUDE ‘TOP. FOR' 
INCLUDE 'TOP_POWER. FOR' 
REAL DEL_Y. DY. DOlay 
LOGICAL PW_FCHAR 
CHARACTER PW_KB_INST(9)*25 

CwrSET THE SCREEN INSTRUCTIONS STRINGS 
PW_KB_INST(1) "ENTER NEW SHIP NAME’ 
PW_KB_INST(2) "ENTER LENGTH (LPP) IN FT' 
PW_KB_INST(3) "ENTER DRAFT (T) IN FT. ' 
PW_KB_INST(4) = 'ENTER BEAM (B) IN FT.' 
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"DISPLACEMENT IN LTONS' 
"ENTER BLOCK COEFICIENT' 
"ENTER SHIP SPEED IN KNOTS' 
"ENTER PROPELLER RPM' 
"ENTER NUMBER OF SHAFTS' 


PW_KB_INST(5 ) 
PW_KB_INST(6) 
PW_KB_INST(7) 
PW_KB_INST(8) 
PW_KB_INST(9) 


Crees ERASE THE INSTRUCTION AREA AND FIND ITS DATA POSITION 


CALL UISSERASE(VD_ID,-0. 4,10. 1,3. 4,10. 9) 
DEL_Y = 18.6 - .4 * PLINE_NO 


CrreeeKWRITE THE APPROPRIATE INSTRUCTION STRING 


CALL UIS$TEXT(VD_ID,7,PW_KB_INST( PLINE_NO) ,0. 0,11. 0) 
CALL UISSTEXT(VD_ID,7,'[ RETURN} TO EXIT’ ,0. 0,10. 6) 


Crkeexee DECIDE IF WE WANT THE FIRST LINE (NAME) OR A VALUE 


C 


a 


300 


‘ae too! ¢ 
Severe seve dete Te Te Tee veces 


CR LINE: NOgeeO. 1) THEN 
PW_FCHAR = . FALSE. 
ELSE 
PW_FCHAR 
ENDIF 
CALL KEY_READ( PW_LINE, PW_FCHAR,0.0,12.0,*300) 
Wy == DEL_Y » . 35 
Poi UTSsERASEC VDLID,6. 2,DY,9.9,DEL_Y) 
eee UMoslE AT CVDSIDe 7 ;PW_LINE,8. 2,DEL_Y) 
RETURN 
eeeURN i 
END 


peek Wie. 


eee ie PW aes _LABEL(VD_ID) 


PERFORM DISPLAY VARIABLES IS A ROUTINE WHICH READS UP THE 
DATA ONTO THE DISPLAY AREA ALONG WITH THE SCREEN LABELS. 


CALLED BY Phh aici POWER 'POWER_KB_DATA_IN' 


Vesete Te eT e ee Te TDSC TET STE ETE TST ETE TS TOU TS TETAS OS Feria etedededededede dete dese cede Seco Re Nee HE ees 


IMPLICIT INTEGER (A-Z) 

INCLUDE 'TOP_POWER. FOR' 

INCLUDE 'SYSSLIBRARY: UISENTRY' 

INCLUDE 'SYSSLIBRARY: UISUSRDEF' 

REAL DEL_Y, DOT_Y 

CHARACTER 2 LINE_LBL(20)*35 

AT UISSERASE(VD_ 14. 100191 9.18.3) 


P_LINE_LBL(10) 
P_LINE_LBL(11) 
P_LINE_LBL(12) 
P_LINE_LBL(13) 
P_LINE_LBL(14) 


WEEKEND OF REQD INPUTS *eeseedssec 


t 


? 


P_LINE LBL(1) = ‘'1. SHIP NAME Mave eee). Xs cae 
Pei NeeteiC2)— —2). LENGTH (Lpp).........- CED yes: 
Penh iB) = 3. DESIGN DRAFT ...2..... GET jak 
eit obBiLGa), == 4.) BEAM 25. sees see, CHS aa: 
PINDER S)e= 5. DISPLACEMENT . . 062 .% (LTONS)' 
PabINE EBL(6) — ‘6. “BLOCK COEFICIENT...... CCb)s2! 
Pee bBLe 7) = 97. SHIP SPEED:2 2.2..22..% CKIS 
P_LINE_LBL(8) = '8. PROPELLER SPEED....... (RPM). ' 
P LINE LBLC9) = 9. NOMBER” OF SHAFTS. s0 20% 2234.4 

1 

i] 

1 

1 


See RE Shei 
vevervevete77H ORS EPOWER. (HP) wveveeredevectaere | 


69 


Senleon'e te aoe 
ur ernere 


teue se ses esie =‘: se see's we sees seve sexe sles'es'e este esfen!, ese ses‘c steve se stestesteste se stesteses eves seveses esves'e ale seves'e ule s‘ee'e ese Je 


P_LINE_LBL(19) 
P_LINE_LBL( 20) 
DO 10 I = 1,20,1 
DEL. Y = 18.6 - .4*I 
CALL UISSTEXT(VDUID 47) RELIED LC 1) en Eiee en 
10 CONTINUE 
DO 20 [eames 
DEL Y = 18.6 - .4*I 
CALL UISSTEXT( VD_1D.7.PW_KB. UPCinace eRe 
20 CONTINUE 
RETURN 
END 


. BB=. WELL. DESIGNED. BULB. BOW.... 
Tedesedetedededededededetevedededededek ated kek 


P_LINE_LBL(15) =~ Sapien ; 
P_LINE_LBL( 16) =" See ADMIRALTY< Secs 25 25 eee ‘ 
P_LINE_LBL(i7) = =e 5.8.0. W/-NOeBE 2 <> eee 
PebINEO LR El sis . ee SEG W/o BD..: . ae . 

ee | t 


O 
‘& 
SUBROUTINE PW_CALC_1 
Sve de de ede de te deve de ds ve We ve se Fee Fe FEF Fe Te Fe Ve Ne He Ve NE FE FE He Tee Te Tee FETE HE TEE He TE TE TENE He Tee TENE Te TENE TENE He VEE TS HE ICE IE 


G Eh 
C SUBROUTINE PW_CALC_1 * 
C PW_CALC_1 CALLS PW_CALC_2 WHICH DOES THE POWER (CHP) ¥ 
C CALCULATIONS. ON RETURN, PW_CALC_1 DISPLAYS THE RESULTS ¥ 
C OF THE CALCULATIONS AND THEN RETURNS TO THE ROOT PROGRAM. * 
c ¥ 
C CALLED BY SUBROUTINES 'POWER' ,'POWER_KB_DATA_IN' ,'POWER_GRAPH' * 
C CALLS SUBROUTINE *PW_CALC_2' * 
CG  wevedededededeveds Teac de devs dedede deve deve ve Fede He He ve Te Tee Heese KG Te Te Tee TENE He Ie Te Fe Fe TEE KK HER TEN IK 
C 


INCLUDE 'TOP. FOR’ 
INCLUDE ‘TOP_POWER. FOR’ 
REAL DY 
CALL UISSERASE(VD_ID,8.1,9.95,9. 9,13. ) 
CALL PhoCALGe? 
WRITE( PW_KB_UP(16), FMT='(G12.5)') PW_ADME 
WRITE( PW_KB_UP(17), FMT='(G12.5)') PW_SDNB 
WRITE( PW_KB_UP(18), FMT='(G12.5)') PW_SDBB 
PW_KB_UP(10) l Sededededededesededcacse ! 
PW_KB_UP(11) ='° ' 
PW_KB_UP(12) 
PW_KB_UP(13) 
PW_KB_UP(14) 
PW_KB_UP(15) 
PW_KB_UP(19) 
PW_KB_UP( 20)  Sededevedededededcdedek ' 
DO 10 ieee to? 0) 
DY = 18.6 -.4*I 
CALMAUESSTEXTCVD_ ID, 7 ,EWakBEUECT )c 8.2. Dy) 


? t 
t ? 
l Sevevedesedededevededek ! 
? ? 
? t 


10 CONTINUE 
RETURN 
END 

C 

C 


SUBROUTINE PW_CALC_2 


Cvvededsdeds Setevedededesetedetidecededededsteddedetetedeleheddteledetentektdideh kkk hikkickd 
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SUBROUTINE PW_CALC_2 JUST DOES THE CALCULATION OF THE POWER ¥e 
REQUIREMENTS FROM THE INPUT DATA. IT IS BASED UPON TWO * 
ALGORITHMS FOR POWER PREDICTION: THE ADMIRALTY COEFFICIENT, ¥ 
AND THE METHOD OF SILVERLEAF AND DAWSON AS MODIFIED BY STIAN * 
ERICHSEN AT UNIV. OF MICHIGAN. IT IS ALSO USED IN THE REPORT * 


SECTION FOR GENERATION OF THE WRITTEN REPORT OF THE DESIGN. ¥ 

¥¢ 
CALLED BY SUBROUTINE 'PW_CALC_1' # 
CALLS SUBROUTINE 'PW_FAIL' * 


Kietekdcacadcakvdesdesdeseseteakkakakkeasdeddesdeskseseedkestekkkakakdeadakivadk desveavdedesededededededesdesvestetetedeat€ 


C2 Cae Gir Gn Car Ge) Care) Ca 6 1 Go 


INCLUDE ‘TOP. FOR' 
INCLUDE 'TOP_POWER. FOR' 
Cx***e*FIRST CONVERT ENGLISH UNITS TO METRIC FOR ADMIRALTY CALCULATION 
Cw KNOTS->M/S ; FT->M ; LTONS->MTONS ; 
PW_NRPS = PW_NRPM/60. 0 
PW_LPPM = PW_LPP/3. 280 
PW_VKM = PW_VK*0. 514444 
PW_DISPM = PW_DISP/1.016 
I_PW_NSHAFT=INT( PW_NSHAFT) 
Cx#**%**BEGIN ERROR CHECKING LOOPS FOR ADM CALCULATION 
THIS SECTION CHECKS THE ADM FORMULA DATA FOR VALIDITY BEFORE 
THE CALCULATION BEGINS. IF A PARAMETER IS OUT OF RANGE, THE 
ERROR CODE IS SET AS 'PW_CAUSE' AND PASSED TO THE SUBROUTINE 
'PW_FAIL' WHICH DISPLAYS A HELP WINDOW SHOWING THE SPECIFIC 
REASON THE DATA WAS REJECTED. THE ADM VALUES ARE SET TO 
ZERO AND THE PROGRAM CONTINUES TO THE S&D CALCULATION. 
IF ( PW_LPPM .GT. 1162.196 ) THEN 
PW_CAUSE=1 
CALL PW_FAIL(PW_CAUSE) 
PW_ADME=0. 0 
GOTO 100 
ENDIF 
IF ( PW_NRPS*( PW_LPPM***0.5) .GT. 136.364 ) THEN 
PW_CAUSE=2 
CALL PW_FAIL( PW_CAUSE) 
PW_ADME=0. 0 
GOTO 100 
ENDIF 
Crt*CALCULATE POWER BY METHOD OF ADMIRALTY COEFFICIENTS 
PW_ADM=5. 07*( ( PW_DISPM****( 2. 0) )**( 1. 0/3. 0) )*( PW_VKM***3. 0) 
& *( 33. 0-0. 017*PW_LPPM) /( 15000. 0-110. O*PW_ NRPS*PW_ LPPM**0. 5) 
CrreerersCONVERT METRIC KILOWATTS BACK TO HORSEPOWER 
PW_ADME = PW_ADM/0. 7456999 
CreteteveeNOW WE HAVE ADMIRALTY POWER IN HORSEPOWER (HP) 
e 
100 CONTINUE 
6 
Cr¥e¥%sNOW CALCULATE S&D POWER AND REQUIRED CORRECTIONS 
C 
Cxre%e*CALCULATE THE BOUNDARY SPEED AND SOME COEFFICIENTS 
PW_VB = (1. 70-1. 40*PW_CB)**( PW_LPP)**0. 5 
PW_SLR = PW_VK/(PW_LPP**0. 5) 
PW_BTR = PW_B/PW_T 


C)- Ca Ga eae? C2 


| 


PW_LBR = PW_LPP/PW_B 


Crrverexe BEGIN ERROR CHECKING LOOPS FOR S&D CALCULATION 
THIS SECTION CHECKS THE S&D FORMULA DATA FOR VALIDITY BEFORE 


> SP 1 ae 1 ap IX a I gp 


THE CALCULATION BEGINS. 


IF A PARAMETER IS OUT OF RANGE, THE 


ERROR CODE IS SET AS 'PW_CAUSE' AND PASSED TO THE SUBROUTINE 
'PW_FAIL' WHICH DISPLAYS A HELP WINDOW SHOWING THE SPECIFIC 


REASON THE DATA WAS REJECTED. 


THE S&D VALUES ARE SET TO 


ZERO AND THE PROGRAM CONTINUES. 
LF CI2PWONSHAPT (Osi) nen 
IF (PW_SLR .GTI. 1.20 [ORS PWaSiRe= ie 
PW_CAUSE=3 
CALL PW_FAIL(PW_CAUSE) 
PW_SDNB=0. 0 
PW_SDBB=0. 0 
GOTO 200 
ENDIF 
IF (PW.CB . GT. “0: 86 20K. PWwoeB id au. 
PW_CAUSE=4 
CALL PW_FAIL(PW_CAUSE) 
PW_SDNB=0. 0 
PW_SDBB=0. 0 
GOTO 200 
ENDIF 
TF CPW BIR Gl. 4550 2.0K. PWeblk ae 
PW_CAUSE=5 
CALL PW_FAIL(PW_CAUSE) 
PW_SDNB=0. 0 
PW_SDBB=0. 0 
GOTO 200 
ENDIF 
PPC EWLLBR 2G 29750 OR PWeubR LL. 
PW_CAUSE=6 
CALL PW_FAIL(PW_CAUSE) 
PW_SDNB=0. 0 
PW_SDBB=0. 0 
GOTO 200 
ENDIF 
ELSEIF Ci PW NSHAPE 2B @c2 )) Then 
if CPWOSLR 2G) 20 SOR sees ak. 
PW_CAUSE=3 
CALL PW_FAIL(PW_CAUSE) 
PW_SDNB=0. 0 
PW_SDBB=0. 0 
GOTO 200 
ENDIF 
IF (PWECB GT. (0.80 JOR PWECB ideo. 
PW_CAUSE=4 
CALL PW_FAIL( PW_CAUSE) 
PW_SDNB=0. 0 
PW_SDBB=0. 0 
GOTO 200 
ENDIF 
IF (CPW2BURE GT. 4°50 [OR]. Pie ane Ide 
PW_CAUSE=5 
CALL PW_FAIL(PW_CAUSE) 
PW_SDNB=0. 0 
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0.40 ) THEN 


50 ) THEN 


2.0 ) THEN 


3.33) Then 


0.40 ) THEN 


54 ) THEN 


2.0 ) THEN 


PW_SDBB=0. 0 
GOTO 200 
ENDIF | 
IF (PW_LBR .GT. 11.50 .OR. PW_LBR .LT. 3.80 ) THEN 
PW_CAUSE=6 
CALL PW_FAIL(PW_CAUSE) 
PW_SDNB=0. 0 
PW_SDBB=0. 0 
GOTO 200 
ENDIF 
ELSE 
PW_CAUSE=7 
CALL PW_FAIL(PW_CAUSE) 
PW_SDNB=0. 0 
PW_SDBB=0. 0 
GOTO 200 
ENDIF 
C¥neoee*CORRECT FOR SHIP LENGTH 
IF ( PW_LPP .GT. 1000.0 ) PW_CX=0. 850 
IF ( PW_LPP .LE. 1000.0 ) PW_CX=0. 850+0. 00185* 
& (( 1000. 0-PW_LPP)/100. 0)**"2. 5 
C2e%*CORRECT FOR BEAM/DRAFT RATIO 
IF ( PW_B/PW_T .LT. 2.40 ) C_KBT=0. 982 
IF ( PW_B/PW_T .GE. 2.40 ) C_KBT=0. 960+ 
& 0. 0005410. O**( (2. O*PW_B)/(3. 0*PW_T) ) 
C¥e*CORRECT FOR SHIP SPEED NOT EQUAL TO BOUNDARY SPEED 
IF (PW_VK/PW_VB .LE. 1.0 ) C_KV=2. 75-7. 25%*( PW_VK/PW_VB)+ 


& De 0 (CREWS VK Wavy By 2.0) 
iteecuweVK/PwiVB .GIT. 1.0 ) C_KV=21. 2-43. 2*( PW_VK/PW_VB)+ 
& 20 Wey ee ee eee, 0!) 


Crete CORRECT FOR HYDRODYNAMIC EFFICIENCY AT LPP=400.0 FT 
fies TL PWONSHAPT .EQ. 1 ) C_H400=2. 60-0. 2917*( PW_VK/ 


& PPWaDior*<(1, 0752.0 )))) 
IF ( I_PW_NSHAFT .EQ. 2 ) C_H400=2. 38-0. 2917*( PW_VK/ 
& EW OU TSE (120 /6.10:)) ) 


Crees CORRECT FOR LPP NOT EQUAL TO 400.0 FT 
Pie FWOLPP ~EQ: 400.0 ) C_KLBP=1.0 
EC PWOEPP NE. 400.0 ) C_KLBP=0. 9196+( PWw_LPP*2. 31E-04)- 
& 72 Se - OG pWe LPP 2..0.)) 
Cras CORRECT FOR OPEN WATER EFFICIENCY AT PROP SPEED=120 RPM 
ee i PWLNSHAFT .EQ. 1 ) C_ETA_0120=0. 98-0. 55*PW_CB 
ia JoPWINSHAFT . EQ. 2°) CZETA_0120=0. 90-0. 33*PW_CB 
Creer CORRECT FOR ACTUAL PROP SPEED RPM 
Bette PWeNSHAFT ©EQ. 1 ) C_DETA_O=0. 360-0, 0029-*PW_NRPM 
iit lo PWONSHAPT .EQ. 2 ) C_DETA_0=0. 135-0. 0011*PW_NRPM 
Cw ADD THE TWO ABOVE FOR TOTAL PROP SPEED CORRECTION 
PW_ETA_O=C_ETA_0120+C_DETA_0 
Cres CALCULATE S&D FOR NO BULBOUS BOW 
TOP_ANS=PW_CX*( PW_DISP**( 2. 0/3. 0))*( PW_VB**3. 0)*C_KBT*C_KV 
BOT_ANS=427. 1**PW_ETA_0*C_H400*C_KLBP 
PW_SDNB=TOP_ANS/BOT_ANS 
Creer ADIJUST S&D FOR SHIP WITH BULBOUS BOW 
PW_SDBB=PW_SDNB*0. 9500 
CrrteeeNOW WE HAVE S&D POWER IN HORSEPOWER (HP) FOR BOTH BOW SHAPES 
C AND THE ADMIRALTY POWER. 
C 


1 


200 CONTINUE 


C 
RETURN 
END 

C 

C 


SUBROUTINE PW_RECORD 
Cre reve deve sede eve dese ves v6 Fe Ve Fe se se Fe He Te Fe Fe He Fe Ve NS Fe Fe Fe Te I Te Fe Fe Me Fe Te Te Fe FEF FETE NE He Ie Fe Fe Fe FN Fe He Fe Fe TEN Fe Fe FNC IE 


| * 
SUBROUTINE 'PW_RECORD' SAVES THE KBD INPUT DATA TO A USER * 
SPECIFIED FILE. FILE TYPE IS '.DAT’ AUTOMATICALLY %* 


CALLED BY SUBROUTINE ‘POWER’. ¥ 


CALLS SUBROUTINE 'SHOW_SAVE' * 
Kaetevedetetetetevesevevedelededededdedededededssvededetetevetetevetedetedevese deve de dete Te TREE 


(SD ee ep > A ep ee 
% 


INCLUDE ‘TOP. FOR' 
INCLUDE 'TOP_POWER. FOR’ 
STA = UISSSET_POINTER_POSITION( VD_ID,WD_POWER,O. ,10. ) 
CALL SHOW _SAVE 
OPEN( 21,FILE=PW_INFILE , STATUS=’ UNKNOWN’ ,blank='null') 
WRITE (21,200) PW_INFILE 
WRITE (21,210) PW_LPP 
WRITE (21,210) PW_T 
WRITE (21,210) PW_B 
WRITE (21,210) PW_DISP 
WRITE (21,210) PW_CB 
WRITE (21,210) PW_VK 
WRITE (21,210) PW_NRPM 
WRITE (21,210) PW_NSHAFT 
WRITE (21,210) PW_ADME 
WRITE (21,210) PW _SDNB 
WRITE (21,210) PW_SDBB 
ENDFILE (21) 
CLOSEQ@a)) 

C 

Cx AND REPORT OUT WHEN DONE 

C 
PW_FNAME = PW_INFILE(: INDEX(PW_INFILE,' '))//'.DAT' 
CALLSUISSERASEC@VDUID.-1 4.10. 1.3.4, 1059) 
CALL UISSTERICVDeID. 7. FIEE SAVED ASO ie 
CALL UISSTEXT( VD_ID,7,PW_FNAME,0. ,10. 6) 

200 FORMAT (BN, 2X,A) 
210 FORMAT (G12. 5) 

RETURN 
END 

C 

C 
SUBROUTINE PW_READ FILE 


ats =a a = -' ate = we = ale aloate Pra a ws mo one PrP PrP a «= an ale le a eo tan a = Pra als -~ ae amto , aula = \é = - 
@ ae ois Ys ws migrises PAY =A ae ee Ss as ae aC au eb ae ov ee as ever ¥: ae ws ae ws PAY seve ys ws = ee sc seve ee veve ee Gacaeas oe ray se ray mis eee ye aaa ee oe @e a ris rid aNias 


READ FILE IS A SUBROUTINE WHICH READS THE DATA INPUT FILE * 
SPECIFIED BY KEYBOARD ENTRY a 


CALLED BY SUBROUTINE ' POWER’ * 
CALLS SUBROUTINES 'PW_SDI_LABEL’ , 'PW_CALC_1’ # 


Gree C2 -€2) C2 ©) 
t 
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6 
INCLUDE 'TOP. FOR' 
INCLUDE 'TOP_POWER. FOR' 
STA=UISSSET_POINTER_POSITION( VD_ID,WD_POWER, 0. ,10. 2) 
KB_ID=UISSCREATE_KB( 'SYSSWORKSTATION' ) 
CALL UISSENABLE_KB(KB_ID,WD_POWER) 
CALL UISSERASE(VD_ID,-.4,10.1,2.3,10.9) 
CALL UISSTEXT(VD_ID,7,’ ENTER THE FILE NAME’ ,O. ,11. ) 
CALL UISSTEXT(VD_ID,7,'AND FILE EXTENSION’ ,O. ,10. 6) 
CALL KEY_READ(PW_LINE,' TRUE’ ,O. ,12. ,*150) 
OPEN( 21,FILE=PW_LINE , STATUS=' UNKNOWN’ ) 
READ (21,200) PW_INFILE 
READ (21,210) PW_LPP 
READ (21,210) PW_T 
READ (21,210) PW_B 
READ (21,210) PW_DISP 
READ (21,210) PW_CB 
REAW (21,210) PW_VK 
READ (21,210) PW_NRPM 
READ (21,210) PW_NSHAFT 
REWIND 21 

Cx NOW READ IT IN AS CHARACTER DATA TO PRINT TO SCREEN 
READ (21,200) PW_KB_UP(1) 
DO lOni= 2,9, 1 

READ (21,220) PW_KB_UP(1) 
10 CONTINUE 


200 FORMAT (2X,A) 
210 FORMAT (G12.5) 
220 FORMAT (2X,A) 
150  CLOSE(21) 
CALL PW_SDI_LABEL(VD_ID) 
CALL UISSDISABLE_KB(KB_ID) 
CALL PW_CALC_1 
CALL UISSERASE(VD_ID,-.4,10.1,3.4,10.9) 
CALL UISSTEXT(VD_ID,7,'SELECT AN OPTION',O. ,11. ) 
CALL UISSTEXT(VD_ID,7,' WITH THE MOUSE ',0. ,10. 6) 


we 


- 


RETURN 
END 
C 
C 
C 
SUBROUTINE SAVE_GRAPH 
Cretedete severe terete ds teks Tee Te ETE TET TTT TTT ETT TEE TEETER TERT TERETE ETRE ETRE ERE REET ERIE 
C 
C THIS SUBROUTINE POPS UP A DIALOG BOX TO INSTRUCT THE USER THAT 
C THE POWER PREDICTION CURVE GRAPH PLOT HAS BEEN WRITTEN TO DISK 
C UNDER THE NAME 'POWER_PLOT. UIS' AND INSTRUCTS THEM ON HOW TO 
C RETRIEVE THE FILE IN HARDCOPY FORM. IT IS CALLED BY THE SUB- 
C ROUTINE 'POWER' SUBMENU SELECTION 'GRAPH POWER’ AND IS 
C DISPLAYED AFTER THE GRAPH HAS BEEN CREATED, VIEWED, AND SENT 
C JOT DISK. 
C 
C CALLED BY SUBROUTINE 'POWER_GRAPH' 


Crvaedevodeaededededcdedeve de dode us te te detec asses de deakaevede sexe dese veut ae ses se Fe He He Fe se Fe Te Fe Teese He Ie Fe Fe Fe Fe Te Fee He He Fede Te Te HH 


C 
IMPLICIT INTEGER(A-Z) 
INCLUDE 'SYSSLIBRARY: UISENTRY' 
INCLUDE 'SYSSLIBRARY: UISUSRDEF' 
INCLUDE 'TOP_POWER. FOR’ 
CHARACTER*34 PLOTA/'**% SAVING DEFINED GRAPH FILE ***' / 
CHARACTER*34 PLOTB/' GRAPH IS BEING WRITTEN TO DISK '/ 
CHARACTER*34 PLOTC/' USING THE FILENAME: veh 
CHARACTER*34 PLOTD/' USTDOOUO1, DAT “y 
CHARACTER*34 PLOTE/' YOU CAN OBTAIN HARDCOPY PLOTS '/ 
CHARACTER*34 PLOTF/' BY THE DCL COMMAND: eye 
CHARACTER*34 PLOTG/' ''PRINT/QUEUE=LASER STDO0001. DAT"'/ 
CHARACTER*34 PLOTH/' AFTER TERMINATION OF TOOLBOX. yy 
CHARACTER*34 PLOTI/' PLEASE WAIT:......... 30 7 
CHARACTER 34 .P ROI) 0c era eee PROGRAM WILL RESUNE' / 
REAL Y_POSN 
Creek CREATE THE DISPLAY FOR THE DIALOG BOX 
VD_PLOT=UISSCREATE_DISPLAY(-5.0,-2.5,10.0,5.0,26.0,14. 0) 
Corer CREATE THE WINDOW TO DISPLAY THE TEXT IN 
WD_PLOT=UISSCREATE_WINDOW( VD_PLOT, 'SYSSWORKSTATION' , 'HELP WINDOW' ) 
Cxe%e*COPY ATTRIBUTE BLOCK '0' AS BLOCK '23' AND CHANGE THE FONT SIZE 
CALL UISSSET_FONT(VD_PLOT,0,23, 'DTABERORO3WKO0GGO00iU2Z2Z2ZZ02A000' ) 
Creek COPY ATTRIBUTE BLOCK '23' AS BLOCK '24' AND CHANGE TO BOLD FONT 
CALL UISSSET_FONT( VD_PLOT, 23,24, 'DTABERORO3WKOOPGO0001UZZZZ02A000' ) 
Cure STGNAL THE USER TO GET THEIR ATTENTION 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 
Cx%WRITE THE TEXT INTO THE WINDOW AND SPAWN PROCESS TO 'WAIT' 15 SEC 
Y_POSN=4. 0 
CALL UISSTEXT(VD_PLOT,24,PLOTA,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT(VD_PLOT, 23, PLOTB,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_PLOT,23,PLOTG ,-2.5,Y.P0sn) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_PLOT, 24,PLOTD,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD. PLOT 23. ELOUEn 2. op eeosn) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_PLOT, 23, PLOTF,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT(VD_PLOT, 24 ,PLOTG,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_PLOT,23,PLOTH, -2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT(VD_PLOT,23,PLOTI ,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_PLOT, 23,PLOTJ,-2.5,Y_POSN) 
CALL LIBSSPAWN('WAIT 00:00: 15') 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 
CALL UISSDELETE_DISPLAY( VD_PLOT) 
RETURN 
END 


C3-C7° C2 
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SUBROUTINE PW_FAIL( PW_CAUSE ) 
Carre sede veaede rede seat ae FeFe He We TEM Fe VEE Ie Me Me eee We He WE VE Fe Ve Fe Fe eM FEN Fee ER IE Ie Ie We Tere Weve rk We We Ve Ve ve ve Ve ve Ve eve Mew 
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CG * 
C THIS SUBROUTINE POPS UP A DIALOG BOX TO INSTRUCT THE USER THAT * 
C THE POWER PREDICTION ALGORITHM WILL FAIL TO ACURATELY PREDICT * 
C PROPULSIVE POWER REQUIREMENTS DUE TO THE INPUTED DATA BEING * 
C OUTSIDE OF THE PARAMETERS ALLOWED BY THE SILVERLEAF & DAWSON % 
C OR ADMIRALTY FORMULAS, THE SPECIFIC CAUSE IS PASSED AS THE * 
G PARAMETER ‘PW _CAUSE' TO THE SUBROUTINE FROM THE ERROR CHECKING * 
C LOOPS IN SUBROUTINE PW_CALC_2. THIS PARAMETER ENABLES THIS * 
C SUBROUTINE TO BE WRITTEN ONCE FOR ALL CASES AND STILL BE * 
C SPECIFIC FOR EACH INDIVIDUAL CASE. % 
‘& * 
c THE ALGORITHMS USED ARE DETAILED IN SUBROUTINE PW_CALC_2 * 
& * 
c CALLED BY SUBROUTINE ‘'PW_CALC_2' * 
C 

C 


IMPLICIT INTEGER(A-Z) 
INCLUDE 'SYSSLIBRARY: UISENTRY' 
INCLUDE 'SYSSLIBRARY: UISUSRDEF' 
INCLUDE 'TOP_POWER. FOR' 
CHARACTER*34 FAILA/'%*%* POWER PREDICTION FAILURE  *v¥!' / 
CHARACTER*34 FAILB/' TOOL BOX MAY FAIL TO ACCURATELY '/ 
CHARACTER*34 FAILC/'’ PREDICT POWER REQUIREMENTS FOR  ‘'/ 
CHARACTER*34 FAILD/' ADMIRALTY OR S & D METHOD DUE TO '/ 
BHARACTER*34 FAILE/' PLEASE WAIT......-..2..00..000000. 
MHeORACTER = O4 PAILE/) 4 os 0es400000005 PROGRAM WILL RESUME' / 
REAL Y_POSN 
CHARACTER*36 FAIL(7) 

Creve INITIALIZE THE FAILURE MESSAGES ARRAY 


FAIL(1) = ' SHIP LENGTH OUT OF RANGE 
FAIL(2) = ' SHIP LENGTH OR NRPM OUT OF RANGE ' 
FAIL(3) = ' SPEED/LENGTH RATIO OUT OF RANGE ' 
FAIL(4) = ' SHIP BLOCK COEFFICIENT OUT OF RANGE' 
FAIL(5) = ' BEAM/DRAFT RATIO OUT OF RANGE 
FAIL(6) = ' LENGTH/BEAM RATIO OUT OF RANGE 
FAIL(7) = ' NUMBER OF SHAFTS INCORRECT (1 OR 2)' 


Cx CREATE THE DISPLAY FOR THE DIALOG BOX 
VD_FAIL=UISSCREATE_DISPLAY( -5.0,-2.0,10.0,4.0,26.0,10.0) 
Cree CREATE THE WINDOW TO DISPLAY THE TEXT IN 
WD_FAIL=UISSCREATE_WINDOW( VD_FAIL, 'SYSSWORKSTATION' ,'HELP WINDOW’ ) 
C*#exx*eCOPY ATTRIBUTE BLOCK '0' AS BLOCK '25' AND CHANGE THE FONT SIZE 
CALL UISSSET_FONT( VD_FAIL,0,25, 'DTABERORO3WKOOGG0001UZZZZ02A000' ) 
CrrtexrexkCOPY ATTRIBUTE BLOCK '25' AS BLOCK '26' AND CHANGE TO BOLD FONT 
CALL UISSSET_FONT( VD_FAIL, 25,26, 'DTABERORO3WKOOPGO001UZZZZ02A000' ) 
Cxxe%x%STGNAL THE USER TO GET THEIR ATTENTION 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION’ ,4) 
Cr#rke-eWRITE THE TEXT INTO THE WINDOW AND SPAWN PROCESS TO 'WAIT' 15 SEC 
Y_POSN=2. 8 
CALL UISSTEXT( VD_FAIL, 26,FAILA,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_FAIL,25,FAILB,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_FAIL, 25 ,FAILC,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
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CALL UISSTEXT(VD_FAIL, 25 ,FAILD, -2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_FAIL, 26,FAIL( PW_CAUSE) , -2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_FAIL, 25 ,FAILE, -2. 5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UIS§TEXT( VD_FAIL, 25 ,FAILF, -2. 5,Y_POSN) 

CALL LIBSSPAWN('WAIT 00:00: 15') 

CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 

CALL UISSDELETE_DISPLAY( VD_FAIL) 


RETURN 

END 
C 
C 
C 

SUBROUTINE POWER_GRAPH( TYPE ) 
Cav dedededededededs deve de dese ve dese ve seve de seve ae seve se sede Fe dese ve de ae ve FETE Fe TEE IE Fe Te HEC He He Te Te He MeN Ie eT He Fe Heese Ne He He 
& ve 
C THIS SUBROUTINE CREATES A CA-DISSPLA METAFILE GRAPH OF THE * 
C PROPULSIVE POWER CURVE OF THE SHIP DESIGN FROM ZERO (0) * 
C KNOTS TO THE OPERATING SPEED 'PW_VK' GIVEN AT THE STAGE ¥ 
C OF DESIGN WHEN THE SUBROUTINE WAS CALLED. IT IS CALLED BY * 
C A MOUSE CLICK ON THE MAIN POWER MENU 'GRAPH POWER’ SO IT * 
C IS IMPORTANT THAT THE DESIGN PARAMETERS BE FINALIZED AT ¥ 
C THAT POINT SINCE ALL THE REQUIRED PARAMETERS WILL 8H PASSES 
C IN COMMOM BLOCKS. IT ALSO CALLS THE SUBROUTINE 'SAVE_GRAPH'* 
C THAT ANNOUNCES THE METAFILE NAME TO THE USER BEFORE IT * 
C WRITES SHE PILE lO Disk: * 
Gg v 
C CALLED BY SUBROUTINE "POWER' % 
C Retin SE ee (DAVER GRAPH’ AND MANY CA-DISSPLA ROUTINES * 
Cvevevevs rom arierlirt cist arce Rok Ok barrie rior) kero baat) Scorch Ae rocco aa” kerk acer brceiriricuickir aes 


INCLUDE 'TOP. FOR! 
INCLUDE 'TOP_POWER. FOR' 
CHARACTER*23 DATETIME, PWG_NAME 
REAL LM,LF,BF,TF,N,DELTAM, DELTAT, VM, VK(0: 15) ,PHP_AD,VKP, 
& CB,C_VB,C_X,KBT,H400,KV,ETA0120,DETAO,C_ETAO,VMTK(0: 15), 
S GPW_SD(0: 15) ,GPW_SDB(0: 15) ,KLBP,C_VL,C_BT,C_LB,VMT(0: 15), 
& TOP_SD,TOP_SD1, BOT_SD,NRPM,GPW_ADM( 0: 15) ,GPW_ADMP,VNG, 
& MIN_POWER1,MIN_POWER2 ,MAX_PWR 
INTEGER I_NSHAFT, INDEX1,INDEX2,1,J,K,L,PLOT_TYPE, TYPE 
INTEGER*4 STATUS 
PLOT_TYPE=TYPE 
CuseeZERO OUT ALL MATRICES AND VARIABLES 
DO 5 I=0,15,1 
VK(1I)=0. 0 
VMTK(1)=0. 0 
GPW_SD(1)=0. 0 
GPW_SDB(1)=0. 0 
VMT(1)=0. 0 
GPW_ADM(1I)=0. 0 
5 CONTINUE 
MIN_POWER1=0. 0 
MIN_POWER2=0. 0 
INDEX1=0 
INDEX2=0 
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MAX_POWER=0. 0 
Cewek RECALCULATE COMMON VALUES FOR ACCURACY 
CALL PW_CALC_1 
CxeeeeTELTL WORLD TO SIT TIGHT AND WAIT 
CAL UESSERAon vOoIN,=0. 4,10. 1,3.4,10. 9) 
CAlimUlss tex yp 1.7, CALCULATING PLOT..: ' ,0.0511.0) 
CALL UISSTEXT(VD_ID,7,' PLEASE RELAX & WAIT' ,0. 0,10. 6) 
Cree TRANSFER VALUES VIA COMMON BLOCKS 
PWG_NAME=PW_INFILE 
I_NSHAFT=INT( PW_NSHAFT ) 
LF=PW_LPP 
BF=PW_B 
TF=PW_T 
DELTAT=PwW_DISP 
VKP=PW_VK 
CB=PW_CB 
NRPM=PW_NRPM 
CrekeeSET UP CA-DISSPLA ENVIRONMENT “c2scecededs vevedede cede sc devede se aeae ve desk rede de sece se ve se %s 


C 'LNO3I' SENDS OUTPUT TO A LASER PRINTER CAPABLE FILE; 'PAGE' * 
C SETS PAGE SIZE AS STANDARD, 'BLOWUP'’ INCREASES PICTURE SIZE; % 
C 'AREA2D' SETS 2D PLOT SIZE; 'TRIPLX' SELECTS THE FONT FILE; * 
C 'X/Y NAME'S SET AXIS NAMES; 'HEADIN' SETS THE GRAPH TITLE; * 
C 'GRAF' SETS AXIS SIZES(ORIGIN,MAX X,Y ,UNITS,SCALE,ETC); * 
C 'THKFRM' DRAWS A THICK LINE AROUND THE SUBPLOT AREA; 'FRAME' * 
C FRAMES THE ENTIRE PAGE; 'GRID' SELECTS GRAPH GRIDDING: we 
C 'RASPLN' SELECTS TYPE OF CURVE SMOOTHING/ INTERPOLATION TO USE; * 
C 'HEIGHT' SETS CHARACTER HEIGHTS AS WE WANT THEM TO BE; * 


ZO EN EN EN EN EN CU EN EN EN EO ON EN EN FO EN ER EN EDEN CO EN EY SU EN TO EN TREN ED CU ELEN TN OS EO EN EVEN TL EN ES ENTER EN EVEN EN FL EC ED EVER EDF EN EN ELEN EN EN ENED ES 


Crvereves DETERMINE IF DESIRE PLOT TO DISK (1) OR TO SCREEN (2) 
IF ( PLOT_TYPE .EQ. 1 ) THEN 
CALL PGPX 
ELSEIF ( PLOT_TYPE .EQ. 2 ) THEN 
CATE LNOS I 
ELSE 
CONTINUE 
ENDIF 
CALL PAGE(8.5,11.0) 
CALL BLOWUP(1. 15) 
CALL AREA2D(6. 0,8. 0) 
CALL TRIPLX 
CALL HEIGHT(0. 200) 
CALL XNAME('SPEED (KTS)S$' ,100) 
CALL YNAME( 'HORSEPOWER (HP)$',100) 
CALL HEIGHT(0. 375) 
CALL HEADIN( 'SPEED-POWER RELATIONSHIPS' ,-24,-1. ,1) 
CALL HEIGHT(0. 200) 
MAX_PWR=MAX( PW_ADME , PW_SDBB , PW_SDNB) 
CALL GRAF(0. 0,2. 0,PW_VK,0. 0,5000. 0, (MAX_PWR+2000. 0)) 
CALL THKFRM(0. 04) 
CALL FRAME 
CALL GRID(-2,-1) 
CALL RASPLN(2. 0) 
CrrwiexeekSET UP ADMIRALTY POWER ARRAY IN 15 INCREMENTS 
LM=LF/3. 28 
DELTAM=DELTAT/1. 016 
VM=PW_VK*0. 514444/15. 0 


fe) 


N=NRPM/60. 0 
DO 10 I=0,15,1 
VMT( I)=1*VM 
VMTK( I )=PW_VK*1I/15. 0 
GPW_ADMP=5. 0°*( (DELTAM**2. 0)%**( 1.0/3.0) )*( VMT(1)**3. 0)* 
& (33. 0-(0. 017*LM))/( 15000. 0-110. O*N*LM**0. 5) 
GPW_ADM( I )=GPW_ADMP/0. 7456999 
10 CONTINUE 
Cxe%**xATLSO, ACCOUNT FOR CASE THAT ADMIRALTY METHOD HAS FAILED 
IF ( PW_ADME .LT. 1.0 ) THEN 
DOMI2 Jeiei5. 1 
GPW_ADM( J)=0. 0 
12 CONTINUE 
ENDIF 
Coke GRAPH ADMIRALTY POWER CURVE 
CALL MARKER( 16) 
CALL DOT 
CALL CURVE( VMTK,GPW_ADM, 16,1) 
CALL HEIGHT(0. 070) 
CALL LINES('ADM. POWER’ ,ID,1) 
Cxeee*xF ILL IN S&D ARRAY IN 15 INCREMENTS TO PLOT CURVE 
DO 20 I=0,15,1 
VKCI)=PW_VK*1I/15. 0 
VMTK( I )=PW_VK*1/15. 0 
C_VB=( 1. 70-1. 4*CB)*LF**0. 5 
IF ( LF .GQ, 100020) Go x—te5 
IF ( LF .LE. 1000.0 ) C_X=0. 85+0. 00185* 
& (( 1000. O-LF)/100. 0)**2.5 
IF ( BF/TF .LT. 2.40 ) KBT=0. 982 
IF ( BF/TF .GE. 2.40 ) KBT=0. 96+ 
& 0. 00054*10. O**( (2. O*BF)/(3. O*TF)) 
IF ( VK(I)/C_VB .LE. 1.0 ) KV=2. 75-7. 25*(VKC1I)/C_VB)+ 
& 5. 50*(( VKCI)/C_VB)**2. 0) 
IF ( VKC(I)/C_VB .GT. 1.0 ) KV=21. 2-43. 2*(VK(CI)/C_VB)+ 
& 23. O¥( (VK(I)/C_VB)**2. 0) 
IF (I_NSHAFT. EQ. 1) H400=2. 60-0. 2917*VK(1)/(DELTAT***(1. 0/6. 0)) 
IF (I_NSHAFT. EQ. 2) H400=2. 38-0. 2917*VK(1)/(DELTAT***(1. 0/6. 0)) 
IF ( LF .EQ. 400.0) KLBP=1. 0 
( LF .NE. 400.0) KLBP=0. 9196+2. 31E-04*LF-7. 50E-08*LF**2, 0 
( I_NSHAFT .EQ. 1 ) ETA0120=0. 98-0. 55*CB 
IF ( I_NSHAFT .EQ. 2 ) ETA0120=0. 90-0. 33*CB 
( I_NSHAFT .EQ. 1 ) DETAO=0. 360-0. 0029*NRPM 
( I_NSHAFT .EQ. 2 ) DETAO=0. 135-0. 0011*NPRM 
C_ETAO=ETA0120+DETAO 


C 
TOP_SD=C_X*( DELTAT***( 2. 0/3. 0) )*(C_VB*¥**3. 0)*KBT*KV 
BOT_SD=427. 10*C_ETAO*H400*KLBP 
C 
GPW_SDC( 1) =TOP_SD/BOT_SD 
GPW_SDB(I) = 0.9500*(TOP_SD/BOT_SD) 
C 


20 CONTINUE 
Grrr SEARCH THE POWER ARRAYS TO FIND THE MINIMUMS AND THEIR INDICES. 


C THIS HAS TO BE DONE DUE TO THE INVALIDITY OF THE S&D FORMULAS 
C AT SPEEDS << BOUNDARY SPEED. THIS ERROR CAUSES THE UN- 
C CORRECTED GRAPHS TO START AT HIGH HORSEPOWER AT LOW SPEED 
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(AN UNREALISTIC ASSUMPTION), DROP TO A MINIMUM (THAT WE FIND), 
AND THEN GROW ASYMPTOTICALLY TO THE TRUE PREDICTION. THUS WE 
WILL SIMPLY FIND THE MINIMUM AND SET ALL LOW SPEED VALUES TO THE 
LEFT OF THIS POINT EQUAL TO THAT MINIMUM FOR EACH CURVE. 
woke *XATLSO, ACCOUNT FOR CASE THAT S&D METHOD HAS FAILED 
IF ( PW_SDNB .LT. 1.0 .AND. PW_SDBB .LT. 1.0 ) THEN 
DO 22 J=1,15,1 
GPW_SD(J)=0. 0 
GPW_SDB(J)=0. 0 
DD CONTINUE 
ENDIF 
MIN_POWER1=GPW_SD(0) 
MIN_POWER2=GPW_SDB(0) 
Homes J=1,15,1 
IF ( GPW_SD(J) .LT. MIN_POWER1 ) THEN 
MIN_POWER1=GPW_SD(J) 
INDEX1=J 
ELSE 
CONTINUE 
ENDIF 
IF ( GPW_SDB(J) .LT. MIN_POWER2 ) THEN 
MIN_POWER2=GPW_SDB(J) 
INDEX2=J 
ELSE 
CONTINUE 
ENDIF 
25 CONTINUE 
CxSET ANY POWER TO LEFT OF S&D MINIMUM EQUAL TO MINIMUM 
DO 26 K=INDEX1,0,-1 
GPW_SD(K)=MIN_POWER1 
26 CONTINUE 
DO 27 L=INDEX2,0,-1 
GPW_SDB(L)=MIN_POWER2 
27. CONTINUE 
Cree7*GRAPH BOTH S&D CURVES 
CALL MARKER( 15) 
CALL DASH 
CALL CURVE( VMTK,GPW_SD,16,1) 
CALL HEIGHT(0. 070) 
CALL LINES('S&D POWER W/O BB',ID,2) 
CALL MARKER( 17) 
CALL CHNDOT 
CALL CURVE( VMTK,GPW_SDB, 16,1) 
CALL HEIGHT(0. 070) 
CALL LINES('S&D POWER W/ BB’ ,ID,3) 
CALL HEIGHT(0. 150) 
CALL LEGNAMC( '*%%*POWER CURVES**7*§' ,18) 
@aui, LEGENDCID,3,1. 75,6. 8) 
Cxxkvere%*STAMP FILENAME ON GRAPH SO ORIGIN IS KNOWN 
CALL HEIGHT(0. 100) 
CALL MESSAG( PWG_NAME, 23,4.5,-0. 75) 
Cue GET SYSTEM DATE&TIME AND STAMP ON GRAPH 
STATUS=LIBSDATE_TIME( DATETIME) 
CALL HEIGHT(0. 100) 
CALL MESSAG( DATETIME, 23,4.5,-0. 90) 
Cwveree DONE 


€2°C2 C2°G7 c2 
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CALL ENDPL(0) 
CALL DONEPL 
CxmeeKDETERMINE IF PLOT WENT TO DISK (1) OR TO SCREEN (2) 
IF ( PLOT_TYPE .EQ. 1 ) THEN 
CONTINUE 
ELSEIF ( PLOT_TYPE .EQ. 2 ) THEN 
CALL SAVE_GRAPH 
ELSE 
CONTINUE 
ENDIF 
CreeeCLEAR THE INSTRUCTION BOX SO THE USERS KNOWS ITS DONE 
CALL UISSERASE(VD_ID,-0.4,10.1,3.4,10.9) 
50 RETURN 
END 


C 
C 
C 


SUBROUTINE G_DISK 
Carve re vede deat ve vere ve deeds ae dene vee te vee He Fe Fe Tee Me Te Me Te Fe Te WEE Te Ie Tee Ie Ne Tee Te Me Tee ENE Te Te Te Te Me Tee Hee Te Te He Ie Fe Hk Me 


€ ve 
C THIS SUBROUTINE CALLS THE CA-DISSPLA ROUTINE TO PLOT TO * 
C Disk 2 ie. ¥% 
C * 
C CALLED BY SUBROUTINE MAIN MENU ‘POWER’ ¥ 
C CALLS SVBRUOEINE SO GRAPH’ * 
Cievedededeve de sede sete fete tere Feds Tee e ts Fede Teed Ge TET e TEES TS TE TET ETE TES ETS TERS BEBE TEETER ETE E REE ERIE TE 

INCLUDE “TOP. FOR' 

TYPE 

CALL POWER_GRAPH( TYPE) 

RETURN 

END 
C 
C 
C 

SUBROUTINE G_SCREEN 
Cvevedededededede tede te fete code te te te Dee te Fe os See eRe TES DENE CDE OBESE TEPER IESE DEVOTEE TEPER TEETER TEPER EER ERETS 
@ cy 
C THIS SUBROUTINE CALLS THE CA-DISSPLA ROUTINE TGs Piet sue * 
C SCREEN: * 
C ¥ 
C CALLED BY SUBROUTINE MAIN MENU ' POWER’ % 
C CALLS SUBROUTINE 'POWER_ Ne is 
Cte vededete ls te ce tere sete ds to Te Neg e Te SORE TE TENS ToT TE TOTS ETE E TE TCE TORTS TET TERETE RERERRERERERRER EEE 

INCLUDE ‘TOP. FOR' 

TYE i= 2 

CALL POWER_GRAPHC TYPE) 

RETURN 

END 
C 
C 
C 
C 


B. SUBROUTINE POWER VARIABLE DECLARATIONS FILE 

This file is the INCLUDE File TOP_POWER.FOR that is common to every sub- 
routine in the Power Prediction module and Power Prediction Report subroutine. This 
commonality is made to ensure that all data is available to every subroutine without 


needing to pass every parameter as an argument. 


wKeIKKTHE DECLARATIONS FOR THE PROPULSIVE POWER SECTION IN ONE FILE 
C 


CHARACTER PW_LINE*12,PW_INFILE*12 
CHARACTER PW_KB_UP(20)*12 , PW_FNAME*12 


INTEGER PW_TIMES, PW_CAUSE , I_PW_NSHAFT , PLINE_NO 


REAL PW_LPP,PW_T,PW_B,PW_DISP, PW_CB, PW_VK 
REAL PW_NRPM,PW_SDNB, PW_SDBB, PW_NSHAFT 
REAL PW_VB,PW_CX,C_KBT,C_KV,C_H400,C_KLBP 
REAL C_ETA_0120,C_DETA_0,PW_ETA_0,PW_TEMP 
REAL PW_ADME,PW_ADM,PW_SLR,PW_BTR,PW_LBR 
REAL PW NRPS, PW_LPPM,PW_VKM, PW_DISPM 
REAL TOP_ANS, BOT_ANS 


COMMON /PW_NAMES/ PW_LPP,PW_T,PW_B,PW_DISP,PW_CB,PW_VK 
COMMON /PW_VARS/ PW_NRPM, PW_NSHAFT,PW_TIMES , PW_KB_UP 
COMMON /PW_COEFF/ PW_VB,PW_CX,C_KBT,C_KV,C_H400,C_KLBP 
COMMON /COEFFS2/ C_ETA_0120,C_DETA_0, PW_ETA_0O,PW_TEMP 
COMMON /PW_LRESULTS/ PW_SDNB,PW_SDBB, PW_ADME , Pw_ADM 
COMMON /PW_METRIC/ PW_NRPS,PW_LPPM, PW_VKM, PW_DISPM 
COMMON /PW_FILES/ PW_FNAME,PW_INFILE 
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APPENDIX C. POWER PREDICTION TEST ROUTINE 


A. SOURCE CODE 
This code was used to verify and correct the Silverleaf and Dawson prediction for- 
mulas. It also makes an excellent ‘stand- alone’ program for general power calculations 


outside of the JOOL BOX environment. 


PROGRAM TRIAL_POWER 
Credetedetededevedededededede de Hie Tede de Fede Fede LOVE TE TCT TCT BTC DELETED TED CVE DEDEDE DE TED TCD TED ELDER TCT ENE TED LAER DERE TRIC 


Gg ve 
C THIS PROGRAM TESTS THE SILVERLEAF & DAWSON PROPULSIVE POWER ve 
C PREDICTION FORMULA FOR SOME REALISTIC DESIGNS WITH KNOWN 7 
C PROPULSION REQUIREMENTS. THE ADMIRALTY PREDICTION IS ALSO 7 
C CALCULATED FOR COMPARISON AND THE DATA IS PRESENTED IN 7 
C TABLE 1 OF CHAPTER: % 
C ve 
C REQUIRED INPUTS ARE AS FOLLOWS: * 
C SHIP LENGTH( LPP) IN FEET 7% 
C SHIP BEAM(B) IN FEET ¥ 
C SHI PSDRAR GL ear er 7 
C SHIP DISPLACEMENT( DELTA) IN TONS STD SEAWATER % 
C NUMBER OF PROPULSION SHAFTS ( 1 OR 2 ) 7 
C PROPELLER BLADE SPEED(N) IN REV/SEC * 
C SHIP *SPEEUGy lh NOES * 
CG 7c 
C THIS PROGRAM IS WRITTEN IN VAX FORTRAN AND WILL ALSO COMPILE * 
C UNDER LAHEY FORTRAN LP77 V3.0 AND MICROSOFT FORTRAN 4.01 FOR * 
C MS-DOS BASED SYSTEMS WITH A CHANGE 10 THE OUTPUT FILENAME TG: 
C ADHERE TO MS-DOS CONVENTIONS. 7 
Ee vs 
Crevevededededevedetsdevedecevevede sede de decease cede Lede cece cee ce Se Fe Te TEs Te ETE TEEN FETE TEDVE LEDC TE SE TE DEVE TETETEVE TS ESTEE TCT 
C 


REAL LM,LF,BF,TF,N,DELTAM, DELTAT, VM, VK, PHP_AD, PKW,NRPM, 
CB,C_VB,C_X,C_KBT,¢_KV,C_H400, ETAOIZ0) DETAG, Cabmcur 
PHPSODeGak LBP, Per isi CG ob. .0) cole 
TOP_SD, BOT_SD 

INTEGER NSHAFT, IANSWER 

CrverereesQPEN AN OUTPUT FILE 

OPEN (UNIT=8, FILE='TRIAL_POWER. TXT’ , STATUS=' UNKNOWN’ ) 
1 CONTINUE 
Cree INITIALIZE ( RE-INITIALIZE ) ‘CORRECTING’ VARIABLES 
Vi=Ono 
C_KV=0. 0 


get eNO 


g 
Cre QUERY FOR REQUIRED DATA 
C 
PRINT *,'ENTER SHIP LENGTH IN FEET: ' 
READ *,LF 
PRINT *,'ENTER SHIP BEAM IN FEET: ' 
READ *,BF 
PRINT *,' ENTER SHIP DRAFT IN FEET: ' 
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REA. LP 
Bend * "ENTER DISPLACEMENT IN TONS : ' 
ReaD 2, DELTAT 
PRINT * | 'ENTER NUMBER OF SHAFTS AS AN INTEGER : ' 
READ *,NSHAFT 
PRINT * "ENTER PROPER CCE Re Or EEbeIN REV/SEC : 
READ *,N 
PRINT * | "ENTER SHIP SPEED IN KNOTS: ' 
READ *,VK 
LM=LF/3. 28 
DELTAM=DELTAT/1. 016 
VM=VK*0. 514444 
C 
Creek ERROR CHECK LENGTH(M) ,N*SQRT[ LENGTH(M)] FOR ADMIRALTY METHOD 
C 
mC LH ~GT. 1162.196 ). THEN 
PRINT He! dededeoeere LENGTH OUR RANGE ( ADM) etter deakdedeasaeaesededede dec 
GOTO 13 
EOE, 
CONTINUE 
ENDIF 
IF € N*¥CLM**0.5) .GT. 136.364 ) THEN 
PRINT He | | dededeoesee PRODUCT N*L(01/2) OUT OF RANGE( ADM) sve reredere | 


GOTO 13 
PboL 
CONTINUE 
ENDIF 
C 
Cremer CALCULATE POWER BY ADMIRALTY METHOD 
C 
Regine ie es STARTING ADMIRALTY CALCULATION’ 
C 


PKW=5. 0*( (DELTAM**2. )2*(1. 0/3. 0))*( VM¥*3. 0)*(33. 0-(0. 017*LM) 
iS )/€15000. 0-110. 0**N*LM*0, 5) 
Cree’ TRANSLATE TO HORSEPOWER FROM KILOWATTS 
PHP_AD=PKW/0. 7456999 
Cie OUTPUT TO FILE AND SCREEN 
WRITE (8,7) 
WRITE (8,28) 
WRITE (8,8) 
WRITE (8,9) PHP_AD 
WRITE (8,7) 
WRITE (8,91) 
WRITE (8,92) 
WRITE (8,10) LM,DELTAM 
WRITE (8,11) 
WRITE (8,12) VM,N 


PRUINT oes, POWER IN HP BY ADMIRALTY METHOD = ',PHP_AD 
C 
13. WRITE (8,7) 
g 
Cys ERROR CHECK BLOCK COEFFICIENT,SPEED LENGTH RATIO,BEAM/DRAFT RATIO 
6 FOR SILVERLEAF AND DAWSON METHOD 
C 


NRPM=N*60. 0 
CB=35. O*DELTAT/( LF“ BF“ TF ) 


C_SL=VK/LF**0. 5 
GC BI=BF/TF 
C_LB=LF/BF 


IF ( NSHAFT .EQ. 1 ) THEN 

IF ( C_SL .GT. 1.20 SOR GESTALT. (OS20m re), 
PRINT *, | %veverereve*VK /SQRT(L) RATIO OUT OF RANGE( 1 )*%%o0eede%%' 
GOTO 30 

ELSE 
CONTINUE 

ENDIF 

IF € CBisG1- 10:86 SOR CEo LikmOt Os mae 
PRINT 7%, | %ese%%er%sBLOCK COEFFICIENT OUT OF RANGE( 1) 2veteex%% ' 
GOTO 30 

ELSE 
CONTINUE 

ENDIF 

IF ( C_BT .GT.~ 4,50 “OR. CIB. 220) ein 
PRINT Je) | dekedededevereoeB EAM / DRAFT RATIO OUT OF RANGEC( 1 )282eaeveoerer | 
GOTO 30 

ELSE 
CONTINUE 

ENDIF 

IF € CEB SGr. 9°50 2OR” C_LB oll soos een 
PRINT *, | eveckoerer%e% LENGTH/BEAM RATIO OUT OF BOUNDS( 1) 2x0! 
GOTO 30 

ELSE 
CONTINUE 

ENDIF 

ELSEIF ( NSHAFT .EQ. 2 ) THEN 

IF ( G°SL.{GT. 41720 2 OR. Goss lih tO One HE 
PRINT *, 'vsdedesereves VK /SQRT(L) RATIO OUT OF RANGE( 2) %eversdevedees ! 
GOTO 30 

ELSE 
CONTINUE 

ENDIF 

IF ( CB .GT. 0.80 OR. €B LI. 0-5 enn 
PRINT *, | **eve*se+**BLOCK COEFFICIENT OUT OF RANGE( 2) *s7stevrescest! 
GOTO 30 

ELSE 
CONTINUE 

ENDIF 

IFC ClBY. Ci 4550... .OR SCe Rl yi. 2.0).) ann 
PRINT ve) | dededecvedeseves B EAM / DRAFT RATIO OUT OF RANGE( 2) *vsvedederere | 


CONTINUE 

ENDIF 

if ( C_LB JG 11.50 On CLE ol. o COM ym nHEN 
PRINT *, '*vecevevrvrve*LENGTH/BEAM RATIO OUT OF RANGE( 2 )2sivvetn! 
GOTO 30 

ELSE 
CONTINUE 

ENDIF 

ELSE 
PRINT *, '¥teereerte%*NUMBER OF SHAFTS OUT OF RANGE(1, 2)? ivy! 
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GOTO 30 
ENDIF 
C 
WRITE (8,141) 
BRANT 8 2 os oe BLOCK COEFFICIENT = ',CB 
WRITE (8,15) CB 
BROUN@ 8 co 0 SPEED-LENGTH RATIO = ',C_SL 
WRITE (8,16) C_SL 
PRINT *, <.. es: BEAM-DRAFT RATIO = ',C_BT 
WRITE (8,17) C_BT 
PRONT Fo ks LENGTH-BEAM RATIO = ' ,C_LB 
PREDE (8,18) C_LB 
WRITE (8,141) 
6 
WRITE (8,7) 
G 
CreiekekNOW CALCULATE BY SILVERLEAF & DAWSON METHOD 
€ 
BRINT 3°. 002 0% STARTING S & D CALCULATION’ 
WRITE (8,14) 
S 
C_VB=(1. 70-1. 4*CB)*LF**0. 5 
ie LP .Gr. 1000.0 ) C_X=0.85 
IF ( LF .LE. 1000.0 ) C_X=0. 85+0. 00185*( (1000. O-LF)/100. 0)**2.5 
Moeeeehy dE Gt, 2.40 ) C_KBT=0. 982 
IF ( BF/TF .GE. 2.40 ) C_KBT=0. 96+ 
0. 00054*10. O**(( 2. O¥BF)/(3. O*¥TF)) 
ie VK/C VB . ie. 1.0 ) C_KV=2. 75-7, 25*(VK/C_VB)+ 
5. 50%*( (VK/C_VB)***2. 0) 
ieee vK/C_VB.GT. 1.0 ) C_KV=21. 2-43. 2*(VK/C_VB)+ 
23. O( (VK/C_VB)**2. 0) 
IF ( NSHAFT .EQ. 1 ) C_H400=2. 60-0. 2917*VK/(DELTAT***( 1.0/6. 0)) 
IF ( NSHAFT .EQ. 2 ) C_H400=2. 38-0. 2917*VK/(DELTAT**( 1.0/6. 0)) 
mf { LF .£0. 400,0 ) C_KLBP=1.0 
IF ( LF .NE. 400.0 ) C_KLBP=0. 9196+2. 31E-04*LF-7. 50E-08*LF**2. 0 
IF ( NSHAFT .EQ. 1 ) ETAO120=0. 98-0. 55*CB 
IF ( NSHAFT .EQ. 2 ) ETAO120=0. 90-0. 33*CB 
IF ( NSHAFT .EQ. 1 ) DETAO=0. 360-0. 0029*NRPM 
IF ( NSHAFT .EQ. 2 ) DETAO=0. 135-0. 0011*NRPM 
C_ETAO=ETA0120+DETAO 
C 
Cut CALCULATE S & D POWER NUMERATOR & DENOMINATOR FOR 
C NORMAL AND 'CORRECTED' VERSIONS 
C 


TOP_SD=C_X*( DELTAT**( 2. 0/3. 0) )*(C_VB**3. 0)*C_KBT*C_KV 
BOT_SD=427. 10*C_ETAO*C_H400*C_KLBP 

Crvekee ek VALUE 
PHP_SD =TOP_SD/BOT_SD 

Cex OUTPUT VALUES 
RINT *, 2... a POWER IN HP BY S&D METHOD FOR NO B/B = 
WRITE (8,19) PHP_SD 

Crre%*CORRECT IF WELL-DESIGNED BULBOUS BOW IS PRESENT & OUTPUT 
PHP1SD = 0. 95*PHP_SD 
BRUNE oN. ee POWER IN HP BY S&D METHOD FOR B/B = 
WRITE (8,20) PHP1SD 
WRITE (8,7) 


' , PHP_SD 


' ,PHP1SD 
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WRITE (8,91) 
WRITE (8,23) 
WRITE (8,24) LF,BF,TF 
WRITE (8,25) 
WRITE (8,26) DELTAT,N,NRPM 
WRITE (8,27) 
WRITE (8,271) VK,C_VB,NSHAFT 
WRITE (8,28) 
WRITE (8,28) 

C 

Cree SET 'BEGIN AGAIN' CONDITIONS TO EXIT OR CONTINUE 

C 

29 PRINT *,' ' 
30 CONTINUE 
PRINT *,' DO YOU WANT TO PROCESS AGAIN(?7): INSTRUCTIONS: ' 
PRINT *,' ENTER ZERO (0) TO TERMINATE OR ONE (1) TO PROCEED: ' 
PRINT *,' RESPONSE: (777): ' 
READ *,IANSWER 
IF ( IANSWER .EQ. O ) THEN 
CLOSE (UNIT=8) 


GOTG rod 
BCSEUE Ge UaNsWwik. 2 EO sls) iE 
GOTG 1 
ELSE 
GOTH 29 
ENDIF 
C 
Grete FORMAT STATEMENTS 
C 


7 FORMAT(OK=ae) 
8 FORMAT (2X,'ADMIRALTY CALCULATION’ ) 


9 FORMAT (2X,'POWER IN HORSEPOWER FOR ADMIRALTY METHOD....' ,F12. 2) 
91 FORMAT (2X,'SHIP DESIGN CHARACTERISTICS’ ) 

92 | FORMAT CTOxX, LENGTHG). 2 eee DISPL(MTONS)' ) 

10 FORMAT (2X,2F19. 2) 

12 FORMAT (10x SPEED(M/S) 2 PROP SPD(RPS)') 

12 FORMAT (2X,2F19. 2) 

141 FORM AT( 2x ; , VEU TET ETE ETE EIT TE RH : ) 

15 FORMAT (2X, BLOCK GCOEEPICIENT, eee ' F115. 6) 

16 FORMAT (2X,'SPEED LENGTH RATIO...... , FlSaey 

17 \PORMATC2X BEAN/ DRAPE RADIG =a 1 Elsa 6. 

18 FORMAT (2X,'LENGTH/BEAM RATIO....... ' ,F15. 6) 

14 FORMAT (2X,'SILVERLEAF & DAWSON CALCULATIONS’ ) 

19 FORMAT (2X,'POWER IN HP BY S&D METHOD FOR NO B/B...... ' Piso) 
20 FORMAT (2X,'POWER IN HP BY S&D METHOD FOR WD B/B...... weiss 2) 
23 FORMAT (10k) LENCTH( Fy eee eee BEAMC FID yerees . 0c ee DRAFT(FT)' ) 
24 FORMAT (2X,3F19. 2) 

25 FORMAT (10X,'DISPL(TONS)......... SHAPT RPS oieues:. Goer SHAFT RPM') 
26 FORMAT (2X,3F19. 2) 

27 ss FORMAT (10X,' DESIGN SPD GES een OUN SSataS ) ee ## SHAFTS') 


271° “FORMAT (G25 2F 19. 2a as) 
28 FORMAT (2X, | eaedededededede te RRR ERIK IR IRE LKR EE IE LE EER ETERS |) 
C 
A CONTINUE 
SLOP 
END 
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B. TEST ROUTINE OUTPUT 
This output was used to verify the algorithms and is used in part in Table 1 of 
Shapter 3. 


» LARGE GENERAL CARGO Design 


Torok hike ot ok back cor ear Gh fick oir ok oc ok Ga ak or ic ak kok oi i Oi ok ok ok ee oie ok ica ok i kok ik fi ior is 
ADMIRALTY CALCULATION 
POWER IN HORSEPOWER FOR ADMIRALTY METHOD.... ZOG5 1.91 


SHIP DESIGN CHARACTERISTICS 
TEEN GRE TS) Gir sey on ese ess DISPL(MTONS) 
Wo 31491. 14 
SED Crisler re sas PROP SPD(RPS) 
10. 70 2500 


aleule alsntseisetsulsnts we ale ale ste el ents ntou's se 
ae ed anes @eevuaer eb ex vd ¢ “eee avueve 


BLOCK COEFFICIENT....... 
SPEED LENGTH RATIO...... 
BEAM/DRAFT RATIO........ 
LENGTH/BEAM RATIO....... 


rier itr iwi trie erie wi wieriwiwi erie wie ts 


. 669842 
. 861818 
. 342857 
PLOSO59 


I Oe 


SILVERLEAF & DAWSON CALCULATIONS 
Beg iNet BY SoD METHOD FOR NO B/B...... pon o0n oo 
Reve nRe iN ir BY Sel) METHOD FOR WD B/B...... ee lee 


SHIP DESIGN CHARACTERISTICS 
TEE NG ane iI re ares cree BEAM GEA). eum DRAFT( FT) 
iS 0 62. 00 953,00 
DISS ONS) everce ee .2 Stbedh gets ogi Se ool SHAFT RPM 
See) 0, 2. 00 ee se (C18, 
DE olCNeor OKs ae DOUNTSPUCKIS) «sea. 2 ## SHAFTS 
20. 80 18.40 1 
Tete Te tee Teves Te Se Ge Be Te ETS ETS TE TE OTE TES 8 TOT TE ETE TE TEES TS TOTES ETE TERETE TE TOT TET G8 
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s CONTAINER A Design 


So SDR GR SSSR Gere 9 | SSSR RRS ret abrir arora tr Gr Ge Airrorraraira nrisr irr oe tirerdor he ise toriselarterenicis 
ADMIRALTY CALCULATION 
POWER IN HORSEPOWER FOR ADMIRALTY METHOD.... 14127. 90 


SHIP DESIGN CHARACTERISTICS 
OCA NGG eens cee DISPL(MTONS) 
W683 2S 28 
SERED) So) ears gi os PROP SPDCRPS) 
Oe 22 ZO 


alan salsaton'selensatasn!sa'selsu's a’, eh bel 
qx WE98 =A @% =4 4 fn rh @% we @¢. seseve 7 we 
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BLOCK GOED FG UE Nite e as 0, 542293 
SPEED LENGTH RAl TOs. 0. 830455 
BEAM/DRAFT RATIO........ 2) Oe 
LENGTH/ BEAM KAt TOue 7745p O07 
NIeMereveke severe Krewe sek yew 
SILVERLEAF & DAWSON CALCULATIONS 
POWER IN HP BY S&v METHOL POR NO’ 6/75.....- PVSOS22 
POWER IN HP BY S&D METHOD FOR WD E/E... 10928. 06 
SHIP DESIGN CHARACTERISTICS 
LENG PHC) eee BEAM GE iy) ccaien sateen. DRAFT(FT) 
580. 00 78.00 31.50 
DISPLC TONS) pee SHAR TeRRS.2 cane eene SHAFT RPM 
22080. 00 2. 00 120. 00 
DESIGN SPUCKTS )..2. BOUN SPDCK ie) meee ## SHAFTS 
20. 00 Z2ace 1 


Jevestetedetescdcdcdevestcacdesestededededevesvedeakeseskcdesesesdevdedevevesedevedesdcdededevedese tetetevesde 
dededcdcdededecdetevedede sc sedetededesledede dead desedeteveveveverdededede tee eer teeter 


CONTAINER B Design 


Ivedetesesesesededs dese sevesk seve sievesk weve deve weseseve wesc ve 16 ve 90 3e ae see ne Te aC Ie Ie aC ee at aS ea 
ADMIRALTY CALCULATION 
POWER IN HORSEPOWER FOR ADMIRALTY METHOD.... 30511280 


SHIP DESIGN CHARACTERISTICS 


GEN Ga GM) 2.0. arses DISPLCMTONS ) 
Z0G 740 SE0707s=s 
SPREE DOI) SS). .2-- eee PROP SPDC(CRPS) 
lied 3 2.00 
Tevevedcasdedeve deve deveds tested se 
BLOCK COEFFICIENT....... 0. 619424 
SPEEDS GENGUHeRATIO: 23.26 0.876275 
BEAM DRAT FE CRATTOS.. «ae Pe Tes ile! 
LENGOHY BEAM RATIO) 2a 7.126316 
Trksedcvedesedk deve seveve seve ve 
SILVERLEAF & DAWSON CALCULATIONS 
POWER IN HP BY S&D METHOD FOR NO B/B...... 29480. 57 
POWER IN HP BY S&D METHOD FOR WD B/B...... 28006. 54 
SHIP DESIGN CHARAGTERISTICS 
LENGTH( EL) ae BEAM( ED eae ae DRAFT( FT) 
677.00 S510), 34.00 
DES PLC TONS.) ae SHAE TURE Siaa. sss SHAFT RPM 
38700. 00 2.00 120700 
DESIGN SPDCKITS)..... BOUNSSED GES eee. ## SHAFTS 
22.60 Jag lulo yl 1 


Norsedesesescocdesesescasvedeutsesescsededesesevedevede sewed sede sex seseveakevese seve seve revere seve 
tedcdetetcsdededkdesedevedededededevedededeacdedetededevescdedcdedededcdkickekkkeeickidcdededck 
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seaeveae sess tevewsve dete skesle He oe se veveve seve deve He vedo se deve ede de dee seve seve de veve seve seve deve xe 


ADMIRALTY CALCULATION 
POWER IN HORSEPOWER FOR ADMIRALTY METHOD.... 2051 3.20 


SHIP DESIGN CHARACTERISTICS 


TENG RO) ee acaek goats DISPLCMTONS ) 
5. 12 S325 5..27 
SPEEUCN/ Sean esa o4 PROP SPD(RPS) 
slay aos: 2200 
cir carbs beta bar biel acta cecal he ke ate 
BLOCK COBFRICIENT....... 0.565724 
Seoul) TENGiH RATIO... ... O-909155 
BEAM/DRAFT RATIO........ B18 7500 
ELENGTH/ BEAM RATIO. ...... 6. 274510 


clsristteriseisrisriscide dice cesc iar bei Ge 


SILVERLEAF & DAWSON CALCULATIONS 


POWER IN HP BY S&D METHOD FOR NO B/B...... Z7 435.27 
Rewer IN Hr BY S&D METHOD FOR WD B/B...... 26003. 51 
SHIP DESIGN CHARACTERISTICS 
APES GEIRCE Uh) 5 pasate etna cn BE ATH) eon sac ecienily DRAFT(FT) 
640. 00 102. 00 32.00 
DIESE EGLONS)) toesemcins uel Mk Poste 5 <5 ates SHAFT RPM 
53765. 00 200 T2000 
DE steN esrb kts)... BOUN SPDCKIS), 2.2.0.4. {# SHAFTS 
23206 APs 1 


Paelou!, AURA RR a at fal 
SevevesedesevedeseJevecededevesedess 


Jevededeveletetededetetededededededesededestesededesesedtesededededvesevedteteteseseiodedededtedsededesese 
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¢ EVER ACV dT FV. EL Freres. vsdderner ed rier ts @#e ev ed #& 4 #% ec es RQ FR erv. do FX FR vii #rx #% ween a. er CT en ee » vee ee ¢e 78 


ADMIRALTY CALCULATION 
POWER IN HORSEPOWER FOR ADMIRALTY METHOD.... 26203. 87 


SHIP DESIGN CHARACTERISTICS 


IGE NGG PEGE) or oer oes: DISPL(MTONS ) 
pa GAV RTS PAGS Yeoh 

th oy DOU tS) ae car PROP SPD(RPS) 
Lio 2.00 

Pere dove dese Te leet Re RR eK 

Peon CORPPIOIENT. W244. 0. 563709 
SERED LENGTH RATIOC...... 0. 836206 
Bean /DRATTSRATIO... oem. . Syo/ 1429 
LENGTH/BEAM RATIO....... 7.240000 


Sesevevevesededesesotededesevedveve 
SILVERLEAF & DAWSON CALCULATIONS 
POVokerNe He BY Seb METHOD FOR NO B/B.... +. 23787266 
POWER IN HP BY S&D METHOD FOR WD B/B...... 22590. 26 


SHIP DESIGN CHARACTERISTICS 


2H 


LENG BiG ei. ceearmeran ss BEAMGE Tio caemee DRAFT(FT) 


724. 00 100. 00 28. 00 

DISPLC TONS)... eee. SHAFT RPS. 2... SHAFT RPM 

32650 00 2.00 120. 00 

DESIGN SPDCKIS) 22 BOUN SPD( Kis) eee ## SHAFTS 
220 24.51 1 


Fevedtededesededescdeskcdeseskcacsleseskesesesekeseuteseskesesesesesedesedesestededescsdesevede sededededese te 
setetedtededesesdesdesedededededededesedesesesesededesedevevede deve eves te Fete tested testetevete se teve 
» SEABEE BARGE CARRIER Design 


Hidedaedevededesvedede de tededevedededs Fede Ke dede Fe Fede Kee Te THRE RE ARERR 
ADMIRALTY CALCULATION 
POWER IN HORSEPOWER FOR ADMIRALTY METHOD.... 26772295 


SHIP DESIGN CHARACTERISTICS 


LENG TiC eae eee oe DISPLCMTONS ) 
LIAO Toes 56387. 79 
SPBEDUM/S)...-. see PROPS SoeUCKES 
Oy 29 2.00 
Fadcvedededsdevevededcsevede deve se 
BLOCK COEPELCLENT..... 2.98 0.670064 
SPEED EENGIH RATIO... 222 0. 743962 
BEAM, DRAF@=hALIOY.. «oe 2. 708440 
LENGTH BEAM RATIOS 4 -ceo 6, 624362 


Xosdeacdedvskedesesescsdekotscdese 


SILVERLEAF & DAWSON CALCULATIONS 


POWER IN HP BY Sep TETHOD FORSNGms be yal USS 2) 
POWER IN HP BY Sep HETHOD FOR D387 te 20822. 36 
SHIP DESIGN CHARACTERISTICS 
EEINGAGH GHel,) see eeue eee evOy sty Sd Ae eet gees DRAFT( FT) 
722.9 0 105. 90 Bee eG, 
See DONS eae, emerce: SHAFT (RP Sis eee SHAFT RE 
57 290,00 2.00 120. 00 
DESIGN SPDCKIS 2.2. BOUN SPD Ghia ee # SHAFTS 
20.00 20. 48 1 
Nsedesevevevedeveverk detededevevedevedcdededecede ves dete Te dese ve ds de ved Tete ve de tek se Fev sede Kevke 
KIedicdsdsedededededesededededede desvedese dese ve dete ve dese deve de Fede ve Fe a6 Te Nese ve He Tes He He se sev 
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ADMIRALTY CALCULATION 


POWER IN HORSEPOWER FOR ADMIRALTY METHOD.... 12045. 93 
SHIP DESIGN CHARACTERISTICS 
LENGTH(M).........-- DISPL(MTONS) 
onl, Be 46536. 41 
SPEED(M/S).......--- PROP SPD(RPS) 
wale 2.00 


wanton onl s ale aloes alena et! on on's ale wa sfes'e Py 
CN RCN CN SAN CN EDEN ED GV EN SEN OREN GS 
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BiLOCK CORP PT GREEN ecm... Oa 95076 
DEBE Ore GEN Galler dl Oar. 6. « Or 622799 
BEAM, DRAPI=wad LOW... Zee Va29 
IKENGTH / BEAM RATION... 3... tao 56253 


Sedesesededetescdevedesdededededede 


SILVERLEAF & DAWSON CALCULATIONS 


BOWER GNene BY sebeMETHOD FOR NO B/B...... Oy 7269 

EVVoR Nee bY SeveMETHOD FOR WD B/B...... £O523200 
SHIP DESIGN CHARACTERISTICS 

AGEN Gal HG )ic0 5 Semen d 9 a 13a 1g |G Ue ee eee eae DRAFT( FT) 

660. 00 20700 5500 

DISEICION S ) a secuseenn: AE RE Dict tls aeetwe ena SHAFT RPM 

47281. 00 2. 00 L202 00 

Die me Se UCR loin. BOUN SPDCKIS).......... i# SHAFTS 

16200 ey O5 1 


seacdestevicdedededesescacslesesvlestcdesdedededeveslescvescscskedkedcatcctesdetdedtedcdedcsesdevedesktvestesesese 
Sesedevedededededesesesesesesesedcsesededssesededesevesesosedesestedesetesedesesedesevevedeseseveves 
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mise arias Bisel geste gk oe sed bok beri ae ke ok te dae ro oe Oe ae rl oc hic lok od Se OI ae IS ae Ae Lae A Ie hoe eae ok) ek Gre iseh ei aed 3 
ADMIRALTY CALCULATION 
POWER IN HORSEPOWER FOR ADMIRALTY METHOD.... 535068. 73 


SHIP DESIGN CHARACTERISTICS 


ENG BHCM Ric... 2 ety ar DISPLCMTONS ) 
348. 48 443809. 00 
SRERMCH/ Sees. PROP SPD(RPS) 
8.18 200 
EE pe hisritcor irises iehirl oe bared is 
mmOCK CORFFICIENT, ..... 0.818361 
peel) LENGTH RATIO...... 0.470299 
Bea t/DRAPT RATIO. ..0.... 3. OS 1061 
LENGTH/BEAM RATIO....... Sm Os eye: 
Hidedesededededed dedededededed ve 
SILVERLEAF & DAWSON CALCULATIONS 
BeweEk IN He BY S&D METHONUT FOR NO B/B...... 36030. 91 
MOveR £N He BY S&D METHOD FOR WD B/B...... 54229. 30 
SHIP DESIGN CHARACTERISTICS 
MENGE Ty ccs ey eee fe BE AU CE IE 5, coast DRAFT( FT) 
1143. 00 226000 7400 
Dior bUlONs oes. « SHAR eeon. 2. chem SHAFT RPM 
450910. 00 2200 120. 00 
PRG Neoey hs)... DOUN SEDCKTS):...0.2.... ## SHAFTS 
1sys S18) 1637 G il 
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Sacdcdedededeacdededededeseteddcdedevedesetededededededesedesedede de detest sede devote dovesede deve 


ADMIRALTY CALCULATION 
POWER IN HORSEPOWER FOR ADMIRALTY METHOD.... DI 2) ee 


SHIP DESIGN CHARACTERISTICS 


LENG PEG h eet ccee nee DISPL(MTONS ) 
273246 93110223 
SPEEDCM/ S.) aoe PROP SPDCKFs) 
10. 49 2.00 
Vevevevesevevesevetevetescvesesese 
BLOCK SGOE RE GC LENT scan OJ 17 01S 
SPEED LENGTH RATION. 07601136 
BEAM DRA FHSAA) (Osa). sue Be Dae 
LENG TH/ BEAM” RATIO™. 2. oe ad Par! 
devedevedededdededendededed feds 
SILVERLEAF & DAWSON CALCULATIONS 
POWER IN HP BY S&D METHOD BOR NO BE, baa. 37910. 40 
POWER IN HP BY (Se0 METHOD POR WO 0 Geer 36014. 88 
SHIP DESIGN CHARACTERISTICS 
LENGTH(FT).........-. BEANGED) pee ee DRAFT(FT) 
897.00 143. 00 36200 
DISEECIONS)...... cm SHAT) NE eee serene SHAFT RPM 
94600. 00 wad 120. 00 
DESIGN SPDCKIS).-.-BOUN- SEUCKIS ). 2 yeee eee ## SHAFTS 
20.40 20 1 
gO ik Dirk bid ak RG SRILA solar selon seis (sirinocior okt acitcterbkc leds ily cue ic ots ttate atcare 
Lededededetedededededs Seledede Fete Tete te Beds FRE RCT TTT TENE TORE TE ETE LCE. PORTED SCRE 
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ADMIRALTY CALCULATION 


POWER IN HORSEPOWER FOR ADMIRALTY METHOD.... 10940. 75 
SHIP DESIGN CHARACTERISTICS 
LENGTHGM) tee DISPLCMTONS ) 
1) G05 31594. 49 
SPEED(M/S). 22 oe PROP SPD(RPS) 
8. 69 200 
sevicvevevevevovodesc ce He ve veveveds 
BLOCK -COERRIiC LEN Tee 02645051 
SPEED LENGTH RATIO... 22. O09 9327 
BEAM) DRAPE RATIO: ... ee 2.9 lizeuo 
LENG TA AB EAN RA TIO. 0. 6, 266095 
i ae Lokal airtel aed aed 
SILVERLEAF & DAWSON CALCULATIONS 
POWER IN HF BY S&D METHOD UEOR NOSE, be 6576-50 
POWER IN HP BY S&D METHOD FOR Wh bbe... 8149. 64 


SHIP DESIGN CHARACTERISTICS 
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TENG Tin Ge eee es sas DB ESAMIGE Io). ee suet os DRAFT( FT) 


584. 00 oge20 52200 

BLS ANG) S Se mR LD cs Solis sav'ate cers es SHAFT RPM 

32100. 00 Zao) 120.00 

PESOS SeBenisy.... FOUN SPDCKIS).......04 ## SHAFTS 
T6590 Loe 20 1 


SeovckkkkakkkkkkkkkdkeavkdkadakdesededededeackakH KK Kavkkkkkkkakkidekkad 
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ADMIRALTY CALCULATION 
POWER IN HORSEPOWER FOR ADMIRALTY METHOD.... 2100.56 


SHIP DESIGN CHARACTERISTICS 


ING) se ete hs DISPL(MTONS ) 
260. 67 SOI 6.8 
SERED GH) S )ecc cov sons PROE SEDURES) 
8.49 22-00 
Temesesesewsaewkdede sets swet Ise% 
pil@ck COERFFICIENT....... 0. 838120 
SPEED LENGTH RATIO...... 0.564288 
PeAr/DRAPT RATIO. ....... 2.310044 
MENGTH/BEAM RATIO....... 8.081285 


Sede vesesecdeseaeskeakweveds ab veveve 


SILVERLEAF & DAWSON CALCULATIONS 


mewek IN@HP BY S&éD METHOD FOR NO B/B...... Ifo wetssibe 5. 

POWER IN HP BY S&D METHOD FOR WD B/B...... LSOSZ219 
SHIP DESIGN CHARACTERISTICS 

EIS] SCA y @ Sia i I eer eer Be AGED) seca ae pers DRAFT(FT) 

S55, O19) 105.160 45.80 

WESC TONS ie... 61a. SITATE Rac. senna « SHAFT RPM 

9971.0) 00 Ze 00) 120, 00 

PES toner OC he); FOUN SPDCKTS )iax oe aend # SHAFTS 

ile easy 0) 15.40 1 
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APPENDIX D. POWER PREDICTION REPORT MODULE SOURCE 
CODE 


This is the source code for the subroutines that were added to the Report Module 


to produce the Power Prediction Reports. 


SUBROUTINE POWER_RPT 
Crerese dese de terete Ted tede dese Rees Te EROTIC R EEE PER REE TR TEETER EER ERR ERE RREE EERE RE EES 


c ve 
c POWER REPORT SECTION READS IN A DATA FILE CREATED BY THE ¥ 
C POWER PREDICTION MODULE OF THE MAIN PROGRAM AND WRITES A 7 
C DETAILED HARD COPY REPORT OF THE RESULTS. THE FIRST PART Gre. 
C THE REPORT ECHOS THE INPUT DATA AND THE CALCULATES THE * 
C RESULTS FOR, THE, REPORT: 7 
G ve 
C CALLED BY SUBROUTINE ‘REPORT" ¥ 
C tear pinkie ‘PW Se 2 ¥ 
Cr: ae sles fees seves'ss'e se =e ve ves evs eves vo wa seve se eves tewJe ves 7a we ese ses eve ve ve se se s‘es se ese seseveveve veveve ses exes eves owe Je seve evestesles le etento ve verte ve 


INCLUDE IOE: FOR' 
INCLUDE 'TOP_POWER. FOR' 
CHARACTER PW_INPUT_DATA*12, PW_PRFILE*12 
CreeMOVE THE MOUSE POINTER AWAY FROM THE SELECTION 
STA = UISSSET_POINTER_POSITION( VD_ID,WD_RPT,9.9,23. 5) 
Cwe%reSET UP THE FIRST SCREEN INSTRUCTIONS 
CALL UISSERASE( VD_ID, 4.1570. [jana 24s 
CALL UISSTEXTICVD_ID,/7, ENTER THE PILE NAME 945524) 
CALL UISSTEXTCVD_ID,7, AND EXTENSION OF THE sees 0) 
CALL UISSTEXT(VD_ID.7, DATA" FILE TCO BE USED yore s. 2) 
CALL UISSTEXTCVD.1D),7, ORY | RETURN) LO Ex lip on2ieno) 
CreeesREAD THE DATA INPUT FILE NAME 
CALL KEY READ (PW_INPUD DATA,. FALSE. ,5).21) 25-200) 
CreevereNOW WE NEED THE NAME OF THE OUTPUT REPORT FILE 
GALL UISSERASH@) Dal Di e420 ers 290) 
CALL UISSTEXT(VD_ID,7,' ENTER THE FILE NAME’ ,4.5,24. ) 
CALL UISSTEXT(VD_ID,7, AND EXTENSION @O BEw “4.552300, 
CALL UISSTEXT( VD_ID,7, ‘ASSIGNED TO THE REPORT 44. 5323) 
CALL, UISSTEXE( VD2ID. 7 JOR RETURN 6 10 strih cn5 ess 
CALL. KEY READ. ( PW OER IE nA nS Eee 52 ae 8) 
CxrreeesREAD THE DATA IN 
1 OPEN (21,FILE = PW_INPUT_DATA, STATUS = OLD ) 
OPEN (22,FILE = PW_PRFILE, STATUS = 'NEW' ,BLANK='NULL' ) 
READ (21,100) PW_INFILE 
READ (21,110) PW_LPP 
READ 215010 Sey en 
READ (21,110) PW_B 
READ (21,110) PW_DISP 
READ (21,110) PW_CB 
READS (2 1110 meWavK 
READ (21,110) PW _NRPM 
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READ (21,110) PW_NSHAFT 
READ (21,110) PW_ADME 
READ (21,110) PW_SDNB 
READ (21,110) PW_SDBB 
REWIND( 21) 
CLOSE (21) 
Cree RE -CALCULATE FOR ACCURACY 
CALL PW_CALC_2 
PW_SLR = PW_VK/(PW_LPP**0. 5) 
PW_BTR = PW_B/PW_T 
PW_LBR = PW_LPP/PW_B 
Cxrrx%e7GENERATE THE COVER PAGE OF THE REPORT 
Deno = 1.18,1 
WieDEG22.150)) * 
5 CONTINUE 


WRETE (225 120). TOOL, BOX 

WRIge (22,120) ° 

WRITE (22,120) POWER PREDICTION 

& REPORT 

WRITE (27 eere O!) : akieveseseseonkkksictclcadekssiesesck | 
WRITE (22,120) THIS REPORT WAS GENERATED USING THE 
&PROGRAM 

Wire (22,120) |. ' 

WRITE (22,120) ; TOOL BOX WHICH WAS DEVELOPED FOR THE 
&NAVAL 

WRITE (22,120) ' | = wene---- 

WRITE (22,120) ENGINEERING DEPARTMENT OF 
&THE 


WRITE (22,120) 
WRITE (22,120) 
WRITE (22,120) 
WRITE (22,120) 
WRITE (22,120) 
MRETE €22,120) 
WRITE (22,120) 
WRITE (22,120) 
WRITE (22,120) 
WRITE (22,120) 
WRITE (22,120) 
WRITE (22,120) 
MOTE (22,120) 
WRITE (22,120) 
WRITE (22,120) 
WRITE (22,120) 
Dime I = 1,13,1 
WRITE €22,120) * * 
6 CONTINUE 

RIDE. (22,120) ' ' 
WRITE (22,120) ' PAGE 1 OF 2 / POWER PREDICTION’ 
CLUE Geel On 

Cr*errTN THIS SECTION, THE ECHO OF SHIP PARAMETERS AND CALCULATED 

C DATA IS PRESENTED. 

é 


NAVAL POSTGRADUATE SCHOOL’ 


MONTEREY, CALIFORNIA' 


PROFESSOR F. PAPOULIAS ' 
AND ' 
LT. GERALD MCGOWAN ‘ 


LT. JAMES PLOSAY' 
1989/90 ' 


ee ee ee a ee” ee | 
= 


DO 0m 1aoe 1 
WROTE (22. 130) 92 
10 CONTINUE 


eid) 


WRITE( 22,120) 
WRITE( 22,130) 
WRITE( 22,120) 
WRITE( 22,130) 
WRITE( 22,150) 
WRITE( 22,150) 
& PW_INPUT_DATA 
WRITE( 22,160) 
WRITE( 22,130) 
WRITE( 22,150) 
WRITE( 22,130) 
WRITE( 22,140) 
WRITE( 22,130) 
WRITE( 22,140) 
WRITE( 22,130) 
WRITE( 22,140) 
WRITE( 22,130) 
WRITE( 22,140) 
WRITE( 22,130) 
WRITE( 22,160) 
WRITE( 22,140) 
WRITE( 22,140) 
WRITE( 22,140) 
WRITE( 22,140) 
WRITE( 22,160) 
WRITE( 22,130) 
WRITE( 22,140) 
WRITE( 22,130) 
WRITE( 22,140) 
WRITE( 22,130) 
WRITE( 22,140) 
WRITE( 22,130) 
WRITE( 22,130) 
WRITE( 22,130) 
WRITE( 22,130) 
WRITE( 22,140) 
WRITE( 22,130) 
WRITE( 22,130) 
WRITE( 22,130) 
WRITE( 22,140) 
WRITE( 22,130) 
WRITE( 22,140) 
WRITE( 22,130) 
WRITE( 22,130) 
WRITE( 22,130) 
WRITE( 22, 130) 
&NG: 

WRITE( 22,130) 
WRITE( 22, 130) 
&F' 

WRITE( 22,130) 
&83' 

WRITE( 22,130) 
&SBY eS. 
WRITE( 22,130) 
WRITE( 22,130) 


POWER PREDICTION REPORT ' 


' 
t 
| THE INPUT SHIP PARAMETERS ARE AS FOLLOWS' 


'THE REPORT IS LOCATED IN FILE : ' ,PW_PRFILE 
'THE INPUT DATA FILE USED IS: xe 

l sesedevedesedescdedesededededskvededeskseskeckdededededevededededeveskdc desk dedevedeseivdeded dededk | 
DESIGN PARAMETERS' 

SHIP NAME. 1S s.asieeue oe... " ,PW_INFILE 
LENGTH BETWEEN PERPENDICULARS ....FT....',PW_LPP 
DESIGN DRAFT »3. cee FT.... |) Pia 
DESIGN BEAM. x. « sloueee ee FT....',PW_B 
DESIGN DISPLACEMENT ............. LTONS..',PW_DISP 


"COEFFICIENTS OF FORM*¥kitadiestadeicksedvedekicks | 
"BLOCK COEFFICIENT: ',PW_CB 

"SPEED-LENGTH RATIO: ' ,PW_SLR 

"BEAM-DRAFT RATIO: ',PW_BTR 

'LENGTH-BEAM RATIO: ',PW_LBR 


 sedesescvedeseabdedelededededkeskdedk dcakveskaededkedkveskaesedkedkakevededk skevedes ! 
! 9 


DESIGN OPERATING SPEED (NOM) ....KNOTS..' ,PW_VK 

t 

PROPULSION SHAE T- SPEED ..ccuea eee RPM... ' , PW_NRPM 
NUMBER OF PROPULSION SHAPTS cena ' | PW_NSHAFT 


I teteeeredevestesesessvesclessdevoldclelcledcedclotdolclcokkvedcdcvedededesescvededeledleseseskdedk ! 


"DESIGN RESULTS (HORSEPOWER)’ 
ADMIRALTY POWER cscs os bree ee ' | PW_ADME 
SILVERLEAF & DAWSON POWER: ' 

DESIGN W/O BULBOUS BOW........... ' ,PW_SDNB 


t 

f 

. DESIGN W/ BULBOUS BOW........... ' /PW_SDBB 
! 

t 


! 
l esestesedesededededescvesedcakvlevedkeakesedesevevededesdedesk dkevededevededevevevededevedesedevedek dere ! 


‘POWER ESTIMATIONS PRESENTED ARE BASED UPON FOLLOWI 


' (1) METHOD OF ADMIRALTY COEFFICIENTS’ 
HARVALD, Sv. Aa. ,'"RESISTANCE AND PROPULSION 0 


SHIPS", JOHN WILEY & SONS, NEW YORK,N.Y.; 19 
' (2) METHOD OF SILVERLEAF AND DAWSON, AS MODIFIED 


ERICHSEN: ERICHSEN,S. , REPORT No. 123,’ 
"OPTIMUM CAPACITY OF SHIPS AND PORT TERMINAL 
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100 
110 
120 
130 
35 
140 
150 
160 


ect Ul 


WRITE( 22,130) ' UNIV. OF MICHIGAN, ANN ARBOR,MI.; 1971' 
WRITE( 22,130) T Sere dedetese sede dete de deve de dete Ke vese seve eH Ke ese see AIT ese eer sessed sees | 
WROTE (G2 20420) | 

WRITE (22,120) ' PAGE 2 OF 2 / POWER PREDICTION' 

CLOSE (22) 

FORMAT (A) 

FORMAT (G12.5) 

FORMAT (10X,A) 

FORMAT (10X,A) 

MORMAT SCION A, ...-...... aA) 

SAE CLO) ee "G14. 6) 

FORMAT (10X, 2A) 

FORMAT (10X,A) 


CrewkierereEXTIT FROM THE REPORT AND ENABLE MOUSE 


30 


CALL UISSERASECVD_ID, 4.1,20.1,8.4,24. 9) 

CALL UISSTEXT(VD_ID,7,' SELECT AN OPTION WITH' ,4.5,24. ) 
Catt Oloste ss VDLED, 7, THE MOUSE' ,4.5,23. 6) 
RETURN 

END 
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APPENDIX E. TOOL BOX ENDURANCE ESTIMATION 


A. SUBROUTINE ENDURANCE SOURCE CODE 
This program is the TOOL BOX Endurance Estimation module that is called from 


the Main Menu, and all of its associated subroutines. 


SUBROUTINE ENDURANCE 
Grsdededodededededededededeveds He v6 seve ede ds Tove de Teac Fede Te dete Fede deve de de He Fe Fe Te Ne Te TIE Te He TN ITT Te VET Te Te He He eT RN He He He FE 


C we 
C THIS SUBROUTINE IS THE MAIN PART OF THE ENDURANCE CALCULATIONS. * 
C IT SETS UP SCREENS AND CONTROLS ENDURANCE PROGRAM ACTIONS. * 
G * 
C IT CALCULATES ENDURANCE USING THE USN DDS9400-1 FORMAT 

C IT IS CALLED FROM THE MAIN TOOL BOX MENU BY THE "ENDURANCE" * 
C SELECTION USING THE MOUSE. IT REQUIRES THE FOLLOWING INPUTS FOR * 
C OPERATION AFTER INITIALIZATION: #e 
C we 
G ND_DISP FULL LOAD DISPLACEMENT (TONS) REAL * 
e ND_PWR CRUISING POWER (HP) REAL % 
C ND_NDPWR AVERAGE ENDURANCE POWER REQD FOR CRUISING ¥ 
CG REAL * 
C ND_ELEC CRUISING ELECTRIC LOAD (KW) REAL * 
C ND_MFR MAIN PROPULSION FUEL RATE (LBS/HR) REAL * 
C ND_EFR CRUISING ELECTRIC PLANT FUEL RATE (LBS/KW-HR) ve 
C REAL # 
G ND_OTH OTHER FUEL CONSUMPTION RATES REAL * 
G ND_TPA FUEL STORAGE TAIL PIPE ALLOW (%) REAL * 
Cc ae 
C USING THE FOLLOWING ITERATIVE VARIABLES: ve 
G ND_RANGE ENDURANCE RANGE (NMILES) REAL ¥ 
G ND_SPD ENDURANCE SPEED (KNOTS) REAL * 
CG ND_FUEL VOYAGE FUEL CAPACITY (TONS) REAL ¥ 
G ¥ 
C AND CALCULATES THE FOLLOWING SOLUTION VALUES: * 
c ND_TIME TIME (HRS) FOR JOURNEY OF ND_RANGE AT ND_SPD ve 
C REAL ¥ 
@ ND_VOL FUEL STORAGE CAPACITY REQD REAL ¥ 
eG NDeRed FUEL PERCENT OF FULL LOAD DISPL REAL * 
C <¢ 
C ALL PARAMETERS ARE PASSED IN COMMON BY THE INCLUDE 'TOP_ENDU.FOR' * 
G FILE THAT HAS ALL THE PARAMETER DEFINITIONS, TYPE STATEMENTS, * 
G AND SET UP. we 
& * 
C CALLED BY MAIN MODULE ‘TOOL_BOX' ye 
C CALLS SUBROUTINES 'ND_KB_DATA_IN' ,'ND_READ_FILE' ,ND_RECORD' , * 
C ND -CALG_1° , ‘TO MAIN: (AND EX Et * 
C ¥ 
Credevededededeaedede dds devote deve ve veds Te de ve dee se 5 He ae Fe ve Te Fe Te Fede Tete ve He Te ve Te ve Fe Fede Fete He We He He Ve He Fe Fe Te Te Te Te He Te Tee He Te ve ve Ve 


INCLUDE 'GENERAL. FOR' 
INCLUDE 'TOP_ENDU. FOR' 
EXTERNAL TO_MAIN,EXIT,DARK2,LIGHT2 ,NOWHERE ,ND_CALC_2 
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EXTERNAL ND_KB_DATA_IN,ND_RECORD,ND_READ_FILE,ND_CALC_1 
EXTERNAL ND_SDI_LABEL,ND_SORT , MUCH_TOO_MUCH , TOO_MUCH,ND_LIST 
EXTERNAL KEY_READ,SET_HELP_LEVEL 

Cw SET HELP LEVEL FOR PARAMETER WINDOWS TO 'ON' UPON ENTRY 


ND_HELP=1 
Crewe INITIALIZE THE PARAMETERS TO AVOID DIVIDE BY ZERO ERRORS. ALSO 
C THIS INSURES THAT WHEN WE INITIALLY CALL THE KEYBOARD DATA ENTRY 
C ROUTINE THAT THE DATA PASSES W/O DIVIDE BY ZERO ERRORS 


IF ( ND_ENTERS .EQ. O ) THEN 

Cx TNPUT VARIABLES 
ND_SOLVE=1 
ND_INFILE='GENERIC' 
ND_KB_UP(1)='GENERIC' 
ND_DISP=1. 0 
NDeKEeUEC2)= 1.0 
ND_PWR=0. 0001 
ND_KB_UP(3)='0.0001' 
ND_NDPWR=0. 0001 
ND_KB_UP(4)='0. 0001' 
ND_ELEC=0. 0001 
ND_KB_UP(5)=' 0. 0001' 
ND_TPA=0. 0001 
ND_KB_UP(6)='0. 0001' 
ND_MFR=0. 0001 
ND_KB_UP(7)='0. 0001' 
ND_EFR=0. 0001 
ND_KB_UP(8)=' 0. 0001' 
ND_OTH=0. 0001 
ND_KB_UP(9)='0. 0001' 
ND_RANGE=0. 0001 
PEK ESUrt1O)— 0,000). 
ND_SPD=0. 0001 
NierbeUr(11)— 0.0001' 
ND_FUEL=0. 0001 
ND_KB_UP(12)='0. 0001' 
ND_WGT=0. 0001 
ND_KB_UP(18)='0. 0001' 

| ND VvOm—0, 0001 

| ND_KB_UP(19)='0. 0001' 

: ND_PCT=0. 0001 

| ND_KB_UP(20)='0. 0001' 

| ENDIF 

| ND_ENTERS=ND_ENTERS+41 

| Cute ERASE THE DATA AREA 

| CALL UISSERASE( VD_ID,3. 6,10.1,9.9,18.5) 

; Cr%re*REMOVE THE MOUSE POINTER TO SOME OTHER AREA 

STA = UISSSET_POINTER_POSITION( VD_ID,WD_MAIN,9.9,4. 5) 

| 

| 

| 

| 





CrCREATE POWER WINDOW 
WD_NDUR=UISS$CREATE_WINDOW( VD_ID,'SYSSWORKSTATION' , 'ENDURANCE 
& PREDICTION WINDOW' ,-.5,9.9,10.1,19. ,40. ,30. ) 
DO 10 Y_COOR = 13.1,18.4,.8 
DY = Y_COOR + .2 
CALL UISSSET_POINTER_AST( VD_ID,WD_NDUR,DARK2, ,X0,Y_COOR,X1, 
DY ler. 
10 CONTINUE 
C¥nkeeSET MENU TITLES 


101 


OPTION( 11) 
OPTION( 12) 
CreeerKWRITE SCREEN 
CALL UIS$TEXT( VD_ID,0,OPTION(11),.3,15. 1) 
CALL UISSTEXT( VD_ID,0,OPTION(12),.3,15.9) 
CALL UISSSET_BUTTON_AST(VD_ID,WD_NDUR,EXIT,, ,X0,13.0, 


OPTION( 23) 
OPTION( 22) 


& Dole os 4) 
CALL UIS$SET_BUTTON_AST(VD_ID,WD_NDUR,TO_MAIN, , ,X0,13.8, 
& KL deez) 
CALL UISSSET_BUTTON_AST( VD_ID,WD_NDUR ,SET_HELP_LEVEL, , ,X0,14. 6, 
& 11S. 0) 
CALL UISSSET_BUTTON_AST( VD_ID,WD_NDUR,ND_CALC_1,,,X0,15.4, 
& X1,15. 8) 
CALL UIS$SET_BUTTON_AST( VD_ID,WD_NDUR,ND_RECORD,, ,X0, 16. 2, 
& Kl OG ) 
CALL UISSSET_BUTTON_AST( VD_ID,WD_NDUR ,ND_READ_FILE, , ,X0 
& Al. Sie 
CALL UISSSET_BUTTON_AST( VD_ID ,WD_NDUR,ND_KB_DATA_IN, 
& ty XO ly oe ello) 
WNDOW = WD_NDUR 
20 RETURN 
END 
C 
C 
SUBROUTINE ND_KB_DATA_IN 
Cove dedece te seve te ede Fede Fetes a8 0 eRe Ie ee TET ETE TE Te Te Te ETE TE TE TOE TS PETE TE TE TOTS TE TOTES TET TCT TE TVET TEETCEE TS TCT TS 
C x 
C THE ND_KB_DATA_IN ROUTINES LOAD IN KB DATA AND ALLOWS * 
C THE OPERATOR TO CHANGE INPUTS AND SEE REAL TIME EFFECTS ¥ 
C OF THOSE CHANGES ON THE ENDURANCE CHARACTERISTICS OF THE * 
C PRELIMINARY DESIGN. * 
CG * 
@ CALLED BY SUBROUTINE ‘ENDURANCE’ * 
6 CALLS SUBROUTINES 'ND_SDI_LABEL' ,' KEY_READ' ,'ND_SORT' , * 
C OND CALCB a Niaighe | ve 
Ciedede dete de deve fete dence Fede Fe Bo FS TeGe TET TS TE TOTES OTE TOTS TO TEAST TE TE TET ETE TE TERE EERE EEE RERR ERE RBI 
C 


INCLUDE 'TOP. FOR' 
INCLUDE 'TOP_ENDU. FOR' 
REAL ND_LINE_NO 
STA=UISSSET_POINTER_POSITION( VD_ID ,WD_NDUR,9.9,14.5) 
KB_ID=UISSCREATE_KB( 'SYSSWORKSTATION’ ) 
CALL UISSENABLE_KB( KB_ID,WD_NDUR) 
Ces FIRST, WE WE WRITE UP THE LINE LABLES AND FIRST INSTRUCTIONS 
CALL ND_SDI_LABEL( VD_ID) 
Cwt%SECOND, CALCULATE AND DISPLAY STARTING VALUES 
GALE NDS Leal 
Cxre*THIRD, ALLOW USER TO CHANGE INPUT THEN 
CrsRECALCULATE RESULTS IN REAL TIME 
1 CALL UISSERASE(VD_ID,-0.4,10.1,3.4,10. 9) 
CALL UISSTEXT(VD_ID,7,'ENTER A LINE NUMBER' ,0.0,11.0) 
GALL UISSTEXT(VDSEDs7, OR | REGURNIMTO Gos 200 onc) 
3 CALL KEY_READ(ND_LINE,. TRUE. ,0.0,12.0,*300) 
READ (ND_LINE,FMT='(F2.0)',ERR = 5) ND_LINE_NO 
NLINE_NO = INT(ND_LINE_NO) 
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Com ner lGn 20,750,405 50),60,70,380,90, 100,110) NLINE_NO 


C 
Cxrexeee TE TT GETS TO HERE A MISTAKE HAS BEEN MADE witecdedvdecvdedededededetedieddeddedcd 


C 
5 CALL UISSERASE(VD_ID,-0.4,10.1,3.4,10.9) 
CALL UISSTEXT(VD_ID,7,' IMPROPER LINE NUMBER’ ,0. 0,11. 0) 
CALL UISSTEXT(VD_ID,7,'ENTER A NEW NUMBER PLEASE’ ,0.0,10.6) 
GOTO 3 
C 


10 CALL ND_SORT(NLINE_NO,DEL_Y,ND_LINE,*300) 
ND_KB_UP(1) = ND_LINE 
ND_INFILE = ND_LINE 
READ (ND_LINE, FMT='(G)',ERR = 5) 
WRITE (ND_KB_UP(1), FMT='(A)') ND_INFILE 
CALL UISSERASE(VD_ID,8.2,17.9,9.9,18. 3) 
CALL UISSTEXT(VD_ID,7,ND_KB_UP(1),8. 2, 18. 2) 
GOTO 1 


20 CALL ND_SORT(NLINE_NO,DEL_Y,ND_LINE,*300) 
ND_KB_UP(2) = ND_LINE 
READ (ND_LINE, FMT='(G)',ERR = 5) ND_DISP 
WRITE (ND_KB_UP(2), FMT='(G12.5)') ND_DISP 
GALL ULSSERASECVD_I1D,8.2,17.5,9.9,17.9) 
CALL UISSTEXT( VD_ID,7,ND_KB_UP(2),8. 2,17. 8) 
GOTO 1 


30 ND_NDX=1 
IF ( ND_HELP .EQ.1 ) CALL ND_LIST(ND_NDX) 
CALL ND_SORT(NLINE_NO,DEL_Y,ND_LINE,*300) 
ND_KB_UP(3) = ND_LINE 
READ (ND_LINE, FMT='(G)',ERR = 5) ND_PWR 
WRITE (ND_KB_UP(3), FMT='(G12.5)') ND_PWR 
Ol UISSERASE( VD lye. 2,17.1,9.9,17.5) 
Page UtssihxT( VD_1D./7,ND_KB_UP(3),8.2,17. 4) 
GOTO 1 


40  ND_NDX=2 
IF ( ND_HELP .EQ.1 ) CALL ND_LIST(ND_NDX) 
CALL ND_SORT(NLINE_NO,DEL_Y,ND_LINE,*300) 
ND_KB_UP(4) = ND_LINE 
READ (ND_LINE, FMT='(G)',ERR = 5) ND_NDPWR 
WRITE (ND_KB_UP(4), FMT='(G12.5)') ND_NDPWR 
CALL UISSERASE(VD_ID,8.2,16.7,9.9,17. 1) 
CALL UISSTEXT(VD_ID,7,ND_KB_UP(4),8.2,17.0) 
GOTO 1 


50 ND_NDX=3 
IF ( ND_HELP .EQ.1 ) CALL ND_LIST(ND_NDX) 
CALL ND_SORT(NLINE_NO, DEL_Y,ND_LINE,*300) 
ND_KB_UP(5) = ND_LINE 
READ (ND_LINE, FMT='(G)',ERR = 5) ND_ELEC 
| WRITE (ND_KB_UP(5), FMT='(G12.5)') ND_ELEC 
| CALL UISSERASE(VD_ID,8.2,16.3,9.9,16.7) 
PM UiSothx a ( VDI ND KB OUP(5) ,8. 2,16. 6) 
GOTO 1 





60 


70 


80 


90 


100 


110 


ND_NDX=4 

IF ( ND_HELP .EQ.1 ) CALL ND_LIST(ND_NDX) 
CALL ND_SORT(NLINE_NO, DEL_Y,ND_LINE ,*300 ) 
ND_KB_UP(6) = ND_LINE 

READ (ND_LINE, FMT='(G)' , ERR =>) WNDATPA 
WRITE (ND_KB_UP(6), FMT= (G12.5)') ND_TPA 
CALL UISSEKASE( VPs oul 9 5 7 lo) 
CALL UISSTEXT( VD 21037 SNUERELUE( 6 )sGe025 lo 
GOTOr1 


ND_NDX=5 

IF ( ND_HELP .EQ.1 ) CALL ND_LIST(ND_NDX) 
CALL ND_SORT(NLINE_NO,DEL_Y,ND_LINE,*300) 
ND_KB_UP(7) = ND_LINE 

READ (ND_LINE, FMT='(G)',ERR = 5) ND_MFR 
WRITE (ND_KB_UP(7), FMT= (G12.5)') ND_MFR 
CALL UISSERASEGVD ID v5, 2.155550-9, 15.9) 
CALL UISSTEXT(VD_1D.7,ND_KBaUPR@) een2eo acy 
GOTO 1 


ND_NDX=6 

IF ( ND_HELP .EQ.1 ) CALL ND_LIST(ND_NDX) 
CALL ND_SORT(NLINE_NO,DEL_Y,ND_LINE,*300) 
ND_KB_UP(8) = ND_LINE 

READ (ND_LINE, FMT='(G)',ERR = 5) ND_EFR 
WRITE (ND_KB_UP(8), FMT='(G12.5)') ND_EFR 
CALL UISSERASE( VD 1D 6. 2515, lo soles) 
CALL UISSTEXT( VD_IDy7 ND RESUP( Sie eee 15.48) 
GOTO 1 


ND_NDX=7 

IF € NDLHELP . EQ.) )-CsLL NOSES TONDeND o) 
CALL ND_SORT(NLINE_NO,DEL_Y,ND_LINE,*300) 
ND_KB_UP(9) = ND_LINE 

READ (ND_LINE, FMT='(G)',ERR = 5) ND_OTH 
WRITE (ND_KB_UP(9), FMT='(G12.5)') ND_OTH 
CALL UISSERASE( VDiIDy6e2ica7 , 9-9 son) 
CALL VUISSTEXTCVD_ID,7, ND KBLUPC 9 ie oO) 
GOTO 1 


CALL ND_SORT(NLINE_NO, DEL_Y ,ND_LINE ,*300) 
ND_KB_UP(10) = ND_LINE 

READ (ND_LINE, FMT='(G)',ERR = 5) ND_RANGE 
WRITE (ND_KB_UP(10), FMT='(G12.5)') ND_RANGE 
CALL UISSERASEQ@ V0 Ip eeml 4s 399 7) 

CALL UISSTEXTCVD_IDi7 -NDLKE UPC 10). 1G) 
CALL) NDEOCL Lest 

GOTO 1 


CALL ND_SORT(NLINE_NO,DEL_Y,ND_LINE,*300) 
ND_KB_UP(11) = ND_LINE 

READ (ND_LINE, FMT='(G)',ERR = 5) ND_SPD 
WRITE (ND_KB_UP(11), FMT='(G12.5)') ND_SPD 
CALL UISSERASE( VD_ID,8. 2,13.9,9.9,14. 3) 
CALL UISSTEXT(CVD_ ID. 7 NDEKBeULG@MIe 62.142) 
CALL ND meaLGned 
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CRON 


300 CALL UISSDISABLE_KB(KB_ID) 

CALL UISSERASE(VD_ID,-. 4,10.1,3.4,10. 9) 
CApeeUisoI EI VO0nID,7, SELECT AN OPTION ,0..,11. ) 
CAMs olE NC nD, 7, With [HE MOUSE ,0. ,10.6) 
RETURN 
END 

ie 

. 


SUBROUTINE ND_SORTCNLINE_NO,DEL_Y,ND_LINE, COUNT ,*) 
Carded deavaesedede dese ae deve seve He Fe ae He He se Fe Fs ve Tose He Fe Fe He FETE Te Te Fe Fe He AE Ie IEE I He Fe Ie He ETE Te Fe Fe FET We Ns Fe Te Te Hee Ie Ie He He 


C “c 
c SUBROUTINE NDUSORT SORTS OUT THE LINE NUMBER TO THE % 
Ss VARIABLE INVOLVED AND CALLS THE APPROPRIATE SCREEN * 
C INSTRUCTION TO BE WRITTEN IN THE INSTRUCTION BOX. * 
fe 1s 
C CALLS SUBROUTINE 'KEY_READ' % 
Credededkdededsdedede de de de ve deve seve Fete Fe Fe Fe Fk Fe Fe Fee Ie Ae Fe Fe Te Te Fe Fee Me eI Te Fee Ve Te ENE Te Fe Fe Fe Fe FE IE He Tee Tes IE Ne He VEN IIe 
C 


INCLUDE ‘TOP. FOR' 
INCLUDE 'TOP_ENDU. FOR' 
Roath: DELEYeaDY , DOD_Y 
LOGICAL ND_FCHAR 
CHARACTER ND_KB_INST(11)*25 
Cxx#eeSET THE SCREEN INSTRUCTIONS STRINGS 
ND_KB_INST(1) "ENTER NEW SHIP NAME 
ND_KB_INST(2) "ENTER FULL LOAD DISPL  ' 
ND_KB_INST(3) "ENTER FULL RATED POWER ' 
ND_KB_INST(4) "ENTER ENDURANCE POWER  ' 
ND_KB_INST(5) "ENTER NOMINAL ELEC LOAD ' 
ND_KB_INST(6) "ENTER TPA AS 0. XY% 
ND_KB_INST(7) "ENTER FUEL RATE (LBS/HR)' 
ND_KB_INST(8) "ENTER FUEL USE( LBS/KwHR)' 
ND_KB_INST(9) = ‘ENTER FUEL USE (LBS/HR) ' 
ND_KB_INST(10) = ‘ENTER ENDURANCE RANGE ' 
ND_KB_INST(11) = ‘ENTER ENDURANCE SPEED  ' 
CxsekeeERASE THE INSTRUCTION AREA AND FIND ITS DATA POSITION 
CALL UISSERASE(VD_ID,-0.4,10.1,3.4,10.9) 
DEL_Y = 18.6 - .4 * NLINE_NO 
CxWRITE THE APPROPRIATE INSTRUCTION STRING 
CALL UISSTEXT(VD_ID,7,ND_KB_INST(NLINE_NO),0. 0,11. 0) 
Wabi ULSSTEXT( VD_ID,7, [RETURN] TO EXIT’ ,0.0,10.6) 
CxrDECIDE IF WE WANT THE FIRST LINE (NAME) OR A VALUE 
IF (NLINE_NO .EQ. 1) THEN 
ND_FCHAR = . FALSE. 
ELSE 
ND_FCHAR = . TRUE. 
ENDIF 
CALL KEY_READ(ND_LINE ,ND_FCHAR,0. 0,12.0,*300) 
Me DEGEY = . 35 
Gall UISSERASEC VD. 1D,8.2,DY,9.9,DEL_Y) 
Ci cEsicciney0 [bev ND LINE,8.2,DEL_Y) 
RETURN 
300 RETURN 1 


END 


SUBROUTINE ND_SDI_LABEL( VD_ID) 


DATA ONTO THE DISPLAY AREA ALONG WITH THE SCREEN LABELS. 


CALLED BY SUBROUTINES 'ENDURANCE' ,'ND_KB_DATA_IN' 


Cat@a coc. Ga Cac Co Le Is Se 


IMPLICIT INTEGER (A-Z) 
INCLUDE 'TOP_ENDU. FOR' 
INCLUDE 'SYSSLIBRARY: UISENTRY ' 
INCLUDE 'SYSSLIBRARY: UISUSRDEF' 
REAL DEL_Y, DOT_Y 
CHARACTER N_LINE_LBL(20)*35 
CALL UIS$ERASE(VD_ID,4. ,10.1,9.9,18. 3) 
N_LINE_LBL(1) SHIP NAME 90. eee 
N_LINE_LBL(2) FULL LOAD DISPLACEMENT(TONS) ' 
N_LINE_LBL(3) '3. FULL RATED PLANT POWER (SHP)' 
N_LINE_LBL(4) '4. AVG ENDURANCE POWER (SHP)... ' 
N_LINE_LBL(5) 5. CRUISING ELEC LOAD..... (KW). | 
6. 
i 
18 
t 


Se 


N_LINE_LBL(6) TAIL PIPE ALLOWANCE....(%).. 
N_LINE_LBL(7) 
N_LINE_LBL(8) 
N_LINE_LBL(9) 
N_LINE_LBL(10) 
N_LINE_LBL(11) 
N_LINE_LBL(12) 
N_LINE_LBL( 13) 
N_LINE_LBL(14) 
N_LINE_LBL(15) 
N_LINE_LBL( 16) 
N_LINE_LBL(17) 
N_LINE_LBL( 18) 
N_LINE_LBL(19) 
N_LINE_LBL(20) 
DOO = al On 

DEL_Y = 18.6 - .4*I 

CALL UIS$TEXT(VD_ID,7,N_LINE_LBL(1I),4. ,DEL_Y) 

10 CONTINUE 

DO 20 I = 1,9,1 

DEL Y = 18.6 - .4*I 

CALL UISSTEXT( VD_ID,7,ND_KB_UP(I),8.2,DEL_Y) 

20 CONTINUE 

RETURN 
END 


t 

CRUISING MAIN FUEL RATE..... 

. CRUISING ELEC FUEL RATE..... 
9, CRUISING OTHER FUEL RATE. 
t 
t 
t 


"10. *EST. ENDURANCE RANGE (MILES). 
'11.*EST. ENDURANCE SPEED (KNOTS). 

! ecdeskckskvededevededsdedticdede dedevedede dee skates ak teat dese 
tt 

*RESULTS FROM CALCH 

V So slontortoriestocleslodeslovlesleslevieclesiccleclocledloclevecleslodlecleviecledlesiestewte ! 
5 Ni ENDURANCE FUEL LOAD (TONS)! 
> SSCAPSED sGR ee MEmnOhInS )c > arene 
' FUEL STORAGE REQUIREMENTS( FT 


' FUEL WEIGHT ALLOWANCE (%-FL):..' 
l sesesesisdcesedesesdedevededededdedededcdededcscsededdestvevede ! 


ell babu td ud ue te at 


SUBROUTINE ND_CALC_1 


PERFORM DISPLAY VARIABLES IS A ROUTINE WHICH READS UP THE 


Sekicdedosesveteskeaekscdededesseakse reseed aesedk se sede ke seve ar ae see 2036 26 26 ab ak oh ae oe IC Ie Ue Ie ae I ee at ae on ae Ie oe ea 


KeiIcckedvsedededeseddesdkvdesdevedededk stecesekkedkdesksdesedekkavdedcdksdcseskstakkkacdssenkea stk stele kkk seve 


Crraedsskicdeveveds ac deds sede ve sede dese de 96 3 FS seredeseaesededededededeakseseaedesedeadesededeaese dededesede sede dese dese see severe se 


C 


ve 


GC ND_CALC_1 CALLS ND_CALC_2 WHICH DOES THE ACTUAL ENDUARNCE * 
GC CALCULATIONS. ON RETURN, ND_CALC_1 DISPLAYS THE RESULTS we 
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ClCy Ca Ca Gao) 


10 


Civ 
eu en 


|) ©) OG @ C7) Oh 


aan 


OF THE CALCULATIONS AND THEN RETURNS TO THE ROOT PROGRAM. * 


CALLED BY SUBROUTINES 'ENDURANCE' ,'ND_KB_DATA_IN' * 
CALLS SUBROUTINE 'ND_CALC_2' se 


Sesesescteakvcacvescdedeakcvesdeseredcdeacsedede kelkvdesesededescsededesdedededcdedesedvedetesedeksededdtedcdededededededesdcdedcdedcsdcde 


INCLUDE 'TOP. FOR' 

INCLUDE 'TOP_ENDU. FOR’ 

REAL DY 

GAGLUULSSERASE( VD_ID,8.1,9.95,9.9,14. 7) 

Chili ND CALC. 2 

WRITE( ND_KB_UP( 10), FMT='(G12.5)') ND _RANGE 
WRITE( ND_KB _UP(11), FMT='(G12.5)') ND_SPD 
ND_KB_UP(12) Wee CT | 

ND_KB_UP(13) 
ND_KB_UP(14) 
ND_KB_UP(15) 
ND_KB_UP( 20) 


V sesevleseskaevevesedesess ! 


t sevesleverleslevedecleceslede t 


WRITE( ND_KB_UP(16), PMT=" (Gilg) oy NDOP UBL 
WRITE( ND_KB_UP(17), FMT='(G12.5)') ND_TIME 
WRITE( ND_KB_UP(18), FMT='(G12.5)') ND_VOL 
WRITEC ND_KB_UP( 19), FMT='(G12.5)') ND_PCT 


BO Ost = 10,20,1 
Pre eno a =..4-"] 
Cie oobe ad Voi, 7,NDoRBOUPCI]) 46. 2,DY) 
CONTINUE 
RETURN 
END 


ee ND elie 2 


TED TEES TET ETE TS TE TE TE ETE TS TOTS TEE TEE TS CETTE TEETER TERE ETE BEE RBERERREERRBERBEEREEREREET 

xc 
SUBROUTINE ND_CALC_2 JUST DOES THE CALCULATION OF THE ENDURANCE* 
REQUIREMENTS FROM THE INPUT DATA. IT IS BASED UPON THE NAVY * 
DDS9400-1 ALGORITHM FOR ENDURANCE ESTIMATION. IT IS ALSO USED * 
IN THE REPORT SECTION FOR GENERATION OF THE WRITTEN REPORT OF * 
THE DESIGN. a 


CALLED BY SUBROUTINE ‘ND_CALC_1' ve 
CALLS SUBROUTINE 'ND_ PAIL se 


ese sere Teese reese ese sesesesesetesesese sesesetodesedesesededesededsesedesevedesesedesededededvedesesesesedsedesesetesedededsedess 


INCLUDE 'TOP. FOR’ 
INCLUDE 'TOP_ENDU. FOR' 


Gwe CALCULATE AVERAGE ENDURANCE POWER 


CG aoa 


ND_C_AVG = ND_NDPWR * 1.10 
weeCALCULATE POWER RATIO FOR USE LATER 
ND_RATIO = ND_C_AVG / ND_PWR 


CrverexCALCULATE PROPULSION F/O CONSUMPTION RATE 


Cw 


C Seatsae 
aye eu ee 


ND_PFRATE = ND_MFR * ND_C_AVG 
*wAECALCULATE AUXILIARY GENERATOR F/O RATE 

ND_GFRATE = ND_LEFR * ND_ELEC 
**CALCULATE TOTAL F/O USEAGE RATE 
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ND_TFR = ND_PFRATE + ND_GFRATE + ND_OTH 
Creer CALCULATE ALL PURPOSE F/O RATE 
ND_APFR = ND_TFR / ND_C_AVG 
CrrkeexSET FUEL RATE CORRECTION FACTOR 
IF ( ND_C_AVG .LE. 0.3333*ND_PWR ) THEN 
FRCORR = 1.04 
ELSEIF ( ND_C_AVG = G1 23033250 NDSPWRe AN 
& ND_C_AVG .LE. 0.6667*ND_PWR ) THEN 
FRCORR = 1.03 
ELSEIF ( ND_C_AVG .GT. 0.6667*ND_PWR . AND. 


& ND_C_AVG .LE. ND_PWR ) THEN 
FRCORR = 1.02 
ELSE 
FRCORRK = 1.03 
ENDIF 


Cree CALCULATE SPECIFIED F/O RATE 
ND_SFR = FRCORR * ND_APFR 
Cree CALCULATE AVERAGE ENDURANCE F/O RATE 
ND_AVGFR = ND_SFR * 1.05 
Crereeee DETERMINE BURNABLE FUEL LOAD 
ND_WGT = ( ND_RANGE * ND_C_AVG * ND_AVGFR ) 
& / ( NDZSPD * 22400058) 
Crewe ADJUST FOR UNUSEABLE FUEL BELOW SUCTION 
ND_FUEL = ND_WGT / ND_TPA 
Crewe CALCULATE FINAL OUTPUT VARIABLES 
ND_VOL = ND_FUEL * 38.00 
ND_PCT = ND_FUEL * 100.0 / ND_DISP 
ND_TIME = ND_RANGE / ND_SPD 
Cree WHAT IF WE ARE OVER DRASTICALLY OR JUST A LITTLE? 
IF -¢ NDLUFUEL GT. 0.2150" NDSDISE Ss Seale roOriaen 
IF ¢( ND_FUEL .GT. ND_DISP ) CALL MUCH_TOO_MUCH 
RETURN 
END 
C 
C 
SUBROUTINE ND_RECORD 


Creaevededevevededesods sede dete devs te 98 deve te eds Fe eve se ve Fe eve Fe Te Te Ve se Ve Fs VEN Ne He 6 Fe Te TENE TEE TONE Fe FE Fe Ve BEF FETE TE ME IC TE BEN 


SPECIFIED FILE. FILE TYPE IS ‘°.DAT AUTOMATIGALLY 


CALLED BY SUBROUTINE “ENDURANCE ' 
CALLS eee es ' SHOW_SAVE' 


C2) Ga ea a). C2 


INCLUDE 'TOP. FOR' 
INCLUDE 'TOP_ENDU. FOR' 


STA = UISSSET_POINTER_POSITION( VD_ID,WD_NDUR, 0. , 


CALL SHOW_SAVE 


OPEN( 23,FILE=ND_INFILE,STATUS=' UNKNOWN' ,blank='null') 


WRITE (23,200) ND_INFILE 
WRITE (23,210) ND_DISP 
WRITE (23,210) ND_PWR 
WRITE (23,210) ND_NDPWR 
WRITE (23,210) ND ELEC 
WRITE (23,210) ND_TPA 
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SUBROUTINE ‘ND_RECORD' SAVES THE KBD INPUT DATA TO A USER 


Sedededesededesevedesededesesedesedesededededededvededeteseictedesesedesetesesesevesedededesedededededesesesedevedededesedededeseieds 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


(23210) 
(23 IMO 
(23,210) 
(23,210) 
(25210) 
(23210) 
(23,210) 
(23-9010) 
(23,2110) 


ND_MFR 
ND_EFR 
ND_OTH 
ND_RANGE 
ND_SPD 
ND_FUEL 
ND_TIME 
ND_VOL 
ND_PCT 


ENDEILE (C23) 
REWIND 23 
CLOSE( 23) 


2: 
Cres AND REPORT OUT WHEN DONE 
C 
ND_FNAME = ND_INFILE(: INDEX(ND_INFILE,' '))//'.DAT' 
CALL UISSERASE(VD_ID,-.4,10.1,3.4,10. 9) 
PiewulScteOhevbstl, 7s FILE .SAVED AS’ ,0. ,11,) 
CALL UISSTEXT( VD_ID,7,ND_FNAME,O. ,10. 6) 
200 FORMAT (BN, 2X,A) 
210 FORMAT (G12. 5) 


RETURN 

END 
C 
C 

SUBROUTINE ND_READ_FILE 
Cretede dese ve deve sede ds ve dete oF Fe ede deve He se ese Teves seve He Fe Vege He Te Tee Tess Ve Tee Te Te Te Te Fe Te Ve ese ve ve Ve Ve se eT Te Me Fe He Fe Ie HE ae 
C at 
C READ FILE IS A SUBROUTINE WHICH READS THE DATA INPUT FILE ¥ 
C pEECIFIED BY KEYBOARD ENTRY Ws 
é ve 
¢ CALLED BY SUBROUTINE ‘ENDURANCE’ ¥ 
C CALLS SUBROUTINES 'ND_SDI_LABEL' ,'ND_CALC_1' * 

Cretere de tete sede fe Teds Be Fe ee Toe TS Te TOTES TS TET ETE Te TS TE TEES TE TS TE TEES TS TE TE TS TS TSE TE TST TE TEE ETE ETE TEETER TEE EERE ES 

C 


INCLUDE 'TOP. FOR’ 
) INCLUDE 'TOP_ENDU. FOR' 
STA=UISSSET_POINTER_POSITION( VD_ID,WD_NDUR,O. ,10. 2) 
KB_ID=UISSCREATE_KB( 'SYSSWORKSTATION' ) 
CALL UISSENABLE_KB(KB_ID,WD_NDUR) 
Coun UISSERASECVD_1D,-.4,10.1,2.3,10.9) 
GALL UISSTEXT(VD_ID,7, ENTER THE FILE NAME',O. ,11.) 
CALL UISSTEXT(VD_ID,7,'AND FILE EXTENSION’ ,0O. ,10. 6) 
CALL KEY_READ(ND_LINE, 'TRUE' ,0. ,12. ,*150) 
OPEN(23,FILE=ND_LINE ,STATUS=' UNKNOWN’ ) 
READ (23,200) ND_INFILE 





READ 
READ 
READ 
READ 


(23,210) 
(232110) 
(232710) 
(23,210) 
(2s 21) 
(23,210) 
(23,210) 
(23,210) 
(23,210) 
(23), 210) 


ND_DISP 
ND_PWR 
ND_NDPWR 
ND_ELEC 
ND_TPA 
ND_MFR 
NUBE TR 
ND_OTH 
ND_RANGE 
ND_SPD 
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READ (23,210) ND_FUEL 
READ (23,210) ND_TIME 
READ (23,210) ND_VOL 
READ (23,210) ND_PCT 
REWIND 23 
Cree NOW READ IT IN AS CHARACTER DATA TO PRINT TO SCREEN 
READ (23,200) ND_KB_UP(1) 
DO 10 Be oot 
READ (23,220) ND_KB_UP(1) 
10 CONTINUE 


200 FORMAT (2X,A) 
210 FORMAT (G12.5) 
220 FORMAT (2X,A) 
150 CLOSE(23) 
CALL ND_SDI_LABEL(VD_ID) 
CALL UISSDISABLE_KB(KB_ID) 
CALL ND. Oar Gos 
CALL UISSERASE(VD_ID,-.4,10.1,3.4,10. 9) 
CALL UISSTEXT(VD_ID,7,'SELECT AN OPTION',O. ,11.) 
CALL UISSTEXT(VD_ID,7,' WITH THE MOUSE ',0. ,10.6) 


RETURN 

END 
C 
C 
C 

ee ee ND _LIST(ND_NDX) 
Ctevede dete sete se dete Tere Tete Fete Be Ree T TET EG TEESE DELETE TOTS EERE REE RTCIAER EEE ET ER EE EREEEEEERRER ER 
C * 
C THIS SUBROUTINE POPS UP A DIALOG BOX TO[INSIRUCT THE USEReG@e %* 
C THE AVAILABLE OPTIONS FOR EACH '...NOT QUITE OBVIOUS...' PARA- * 
e METER THAT IS REQUESTED BY THE ‘ENDURANCE’ SUBROUTINE. THE * 
C SPECIFIC PARAMETER IS PASSED AS 'ND_CAUSE' AND INDICATES WHICH * 
C LINES OF INSTRUCTION ARE TO BE DISPLAYED 0 THE User ¥ 
(G vv 
C CALLED BY SUBROUTINE ‘ND_CALC_2' * 
Creredededevede deve dese de deve Fea ve Here He ve se Te ve He Fe He Te Tee Tee Ve Te Ve Fe Hee Te TENE Te NE IE He Te TEE HEA TE ETE TERETE TE ENE TE ENCE TENE 
C 


IMPLICIT INTEGER(A-Z) 

INCLUDE 'SYSSLIBRARY: UISENTRY' 

INCLUDE 'SYSSLIBRARY: UISUSRDEF' 

INCLUDE "TOP_ENDU. FOR’ 

CHARACTER*34 TOP_A/ ' 2% PARAMETER DEFINITION anaes | 
CHARACTER*34 TOP_B/' PLEASE ENTER FOLLOWING INFORMATION’ Wl 
CHARACTER*34 GO_A / PLEASE WAIT. ... 4) 9 eee nen 


CHARACTER*34 GO_B / See ree ree PROGRAM WILL RESUME' a 
CHARACTER*34 GO_C /'OR PRESS [HOLD SCREEN] TO SAVE. | 
REAL Y_POSN 


CHARACTER*36 TELL(7),LIST(7),MLIST(7),XLIST(7) 
Cyt INITIALIZE THE HEADINGS MESSAGES ARRAY 


SUNLIGCI S THE FULL POWER RATING AT 

Thine) =a THE CRUISING POWER (TYPICAL) 

1 DIG CeD yee THE CRUISING ELECTRICAL LOAD  ' 

TELL(4) = ' STORAGE TANK TAIL PIPE ALLOWANCE' 

TELL(5) = ' MAIN PROPULSION MACH FUEL USEAGE' 
ae! 


TELL(6) GENERATOR FUEL CONSUMPTION RATE ' 
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TELL(7) = ‘OTHER (MISC) FUEL CONSUMPTION RATE' 
Creve INITIALIZE THE INSTRUCTIONS MESSAGES ARRAY 


LIST(1) = ' DESIGN MAXIMUM FULL POWER (SHP) ' 
LIST(2) = 'FOR STEADY CRUISING, UNDER NORMAL ' 
LIST(3) = 'TO OPERATE NORMAL SHIPS FUNCTIONS ' 
LIST(4) = 'FOR %-FUEL ABOVE THE SUCTION POINT' 
LIST(5) = 'FOR NORMAL CONDITIONS AT CRUISING ' 
misl(oye= Al CRUISING ELEG LOAD, WITH NORMAL’ 
LIST(7) = 'FOR AUX. EQUIP, BOATS, WINCHES,ETC' 
Creek TNITIALIZE THE SECONDARY INSTRUCTIONS MESSAGES ARRAY 
MLIST(1) = 'NEEDED FOR PROPULSION REQUIREMENTS' 
MLIST(2) = ‘WEATHER CONDITIONS & SEA STATE. 
MLIST(3) = 'AND REQUIRED AUX/HAB/DECK GEAR. 
MLIST(4) = 'OF XFER SYS THAT IS USEABLE. 
MLIST(5) = 'SPEED AND POWER SELECTED ABOVE. 
MLIST(6) = ‘AUXILIARY MACHINERY IN USE. 
MLIST(7) = ‘NORMALLY REQUIRED BY THE CREW. 
Crier INITIALIZE EXAMPLES ARRAY 
XLIST(1) = 'EX: ADMIRALTY POWER + 25% MARGIN ' 
harsT( 2) = ‘EX: 0.75 * FULL POWER (TYPICAL) 
XLIST(3) = ‘EX: S5OOKW (NOMINAL) CRUISING 
XLIST(4) = 'EX: 0.95 FOR BROAD, SHALLOW TANKS ' 
XLIST(5) = 'EX: 0.40 FOR GAS TURBINE @ 20K SHP' 
XLIST(6) = 'EX: 0.02 FOR DIESEL GENERATOR 
XLIST(7) = ‘EX: 0.05 FOR OTHER SHIP SERVICES ' 


Cx CREATE THE DISPLAY FOR THE DIALOG BOX 
VD_SCR=UISSCREATE_DISPLAY(-5.0,-2.6,10.0,4.0,26.0,10. 0) 
CurekeCREATE THE WINDOW TO DISPLAY THE TEXT IN 
WD_SCR=UISSCREATE_WINDOW(VD_SCR, 'SYSSWORKSTATION' ,'HELP WINDOW’ ) 
CxrekreeCOPY ATTRIBUTE BLOCK '0' AS BLOCK '27' AND CHANGE THE FONT SIZE 
CALL UISSSET_FONT( VD_SCR,0,27, 'DTABERORO3WKO00GG0001UZZZZ02A000' ) 
CxekesCOPY ATTRIBUTE BLOCK '27' AS BLOCK '28' AND CHANGE TO BOLD FONT 
CALL UISSSET_FONT(VD_SCR, 27,28, 'DTABERORO3WKOOPG0001UZZZZ02A000' ) 
CweeeSTGNAL THE USER TO GET THEIR ATTENTION 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION’ ,4) 
Curves WRITE THE TEXT INTO THE WINDOW AND SPAWN PROCESS TO 'WAIT' 10 SEC 
Y_POSN=3. 0 
CALL UISSTEXT(VD_SCR,28,TOP_A,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT(VD_SCR,28,TOP_B,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_SCR, 27, TELL(ND_NDX) ,-2. 5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_SCR, 27, LIST(ND_NDX) ,-2. 5, Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT(VD_SCR,27,MLIST(ND_NDX),-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALGrUlscTE, MG DeSCR,27,XLES@CND NDX),-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT(VD_SCR, 28,GO_A,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_SCR, 28 ,GO_B,-2. 5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT(VD_SCR, 28 ,GO_C,-2.5,Y_POSN) 
CALL LIBSSPAWN( 'WAIT 00: 00: 10') 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 
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CALL UISSDELETE_DISPLAY( VD_SCR) 


RETURN 

END 
C 
C 

SUBROUTINE MUCH_TOO_MUCH 
Cree aR eR ee dete Me se HI H T TeTE TH TE HE HE HIE TEK TEIN HHETETEN FEKETE HIE INE TENNENT KEKE KK RIN 
C * 
C THIS SUBROUTINE POPS UP A DIALOG BOX TO INSTRUCT THE USER * 
C THAT THE CALCULATED WEIGHT OF FUEL IS LARGER THAN THE VESSELS * 
C OWN DISPLACEMENT AND THAT CLEARLY SOME CHANGES HAVE TO BE 
C MADE TO THE INPUT DATA. ¥ 
G * 
C CALLED BY SUBROUTINE “NDUGALGE2, * 
Crcdedtdedeaededt desk ae dese seve Fes de Fee se Feved He He ae ve He Te Vere Ne eve eV e Nese Hee FEN He HM HN TN He HRI KK KK 
C 


IMPLICIT INTEGER(A-Z) 

INCLUDE 'SYSSLIBRARY: UISENTRY' 

INCLUDE 'SYSSLIBRARY: UISUSRDEF' 

INCLUDE 'TOP_ENDU. FOR' 

CHARACTER*34 MTM_A/'%** PARAMETER ERROR HAS OCCURRED **' / 

CHARACTER*34 MTM_B/' PLEASE NOTE THAT THE SHIPS FUEL '/ 

CHARACTER*34 MTM_C/' REQUIREMENTS EXCEED ITS STORAGE py 
t 


CHARACTER*34 MTM_D/' ABILITY. ADJUST ITEMS 2 THRU 12 '/ 
CHARACTER*34 MIM &/ PLEASE, WAIgD. ee 
CHARACTER*= 34. MIMO) /  eenmenne rs ener PROGRAM WILL RESUME' / 


REAL Y_POSN 
Cw*CREATE THE DISPLAY FOR THE DIALOG BOX 
VD_MTM=UISSCREATE_DISPLAY(-5.0,-2.0,10.0,4.0,26.0,10. 0) 
CwCREATE THE WINDOW TO DISPLAY THE TEXT IN 
WD_MTM=UISSCREATE_WINDOW( VD_MTM, 'SYSSWORKSTATION' , 'HELP WINDOW') 
CrseveeCOPY ATTRIBUTE BLOCK '0' AS BLOCK '29' AND CHANGE THE FONT SIZE 
CALL UISSSET_FONT( VD_MITM,0, 29, 'DTABERORO3WK00GG0001UZZZZ02A000' ) 


Crt*COPY ATTRIBUTE BLOCK '29' AS BLOCK '30' AND CHANGE TO BOLD FONT 
CALL UISSSET_FONT( VD_MTM, 29,30, 'DTABERORO3WKOOPGO0001UZZZZ02A000' ) 
CxS TGNAL THE USER TO GET THEIR ATTENTION 


CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 
Cx¥ers%WRITE THE TEXT INTO THE WINDOW AND SPAWN PROCESS TO 'WAIT' 10 SEC 
Y_POSN=2. 8 
CALL UISSTEXT( VD_MTM,30,MTM_A,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_MITM,29 ,MTM_B, -2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_MTM, 29 ,MIM_C,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_MTM, 29 ,MTM_D, -2. 5, Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_MTM, 30,MTM_E,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_MTM, 30 ,MTM_F,-2.5,Y_POSN) 
CALL LIBSSPAWN('WAIT 00:00: 10") 
CALL UISSSOUND_BELL('SYSSWORKSTATION’ ,4) 
CALL UISSDELETE_DISPLAY( VD_MTM) 
RETURN 
END 


112 





C 
C 
SUBROUTINE TOO_MUCH 


Cievedede dete dete deds Tote Fe Fede REET TET TE ETE LETTS TE TE TE TE FETED TERETE EE TE TE TET TE ETE DE TE DETECT EE TEETER TEE EEE TERETE 
6 ry 
C THIS SUBROUTINE POPS UP A DIALOG BOX TO INSTRUCT THE USER 7 
C THAT THE CALCULATED WEIGHT OF FUEL EXCEEDS THE NORMAL ALLOW- % 
c ANCE FOR SHIPS OF APPROXIMATELY 15% OF TOTAL DISPLACEMENT. “ 
G Milo, CLEARLY SOME GHANGES MUST BE MADE TO THE INPUT DATA. ¥ 
iS my 
c CALLED BY SUBROUTINE 'ND_CALC_2' 3 
Cretedededededevedede de deeded cede de ded TRE RR ERE TE RERE RR ERTE RE RE ERR REREEREERERERREREREER EE 
C 


IMPLICIT INTEGER(A-Z) 
INCLUDE 'SYSSLIBRARY: UISENTRY' 
INCLUDE 'SYSSLIBRARY: UISUSRDEF' 
INCLUDE 'TOP_ENDU. FOR' 
CHARACTER*34 TM_A/'** PARAMETER ERROR HAS OCCURRED **' / 
CHARACTER*34 TM_B/' PLEASE NOTE THAT THE SHIPS FUEL '/ 
CHARACTER*34 TM_C/' REQUIREMENTS EXCEED THE NORMAL '/ 
CHARACTER*34 TM_D/' RANGE OF 15% TOTAL DISPLACEMENT. '/ 
eon SNE PLEASE WAIT... .. cisccu cee eres ene es 
SHeRACTER SG UM H/ |... se.se.50.... PROGRAM WILL RESUME’ / 
REAL Y_POSN 
CxrererCREATE THE DISPLAY FOR THE DIALOG BOX 
VD_TM=UISSCREATE_DISPLAY(-5.0,-2.0,10.0,4.0,26. 0,10. 0) 
Crete CREATE THE WINDOW TO DISPLAY THE TEXT IN 
WD_TM=UISSCREATE_WINDOW( VD_TM, 'SYSSWORKSTATION' ,'HELP WINDOW' ) 
Cxe%e%e*COPY ATTRIBUTE BLOCK '0' AS BLOCK '31' AND CHANGE THE FONT SIZE 
CALL UISSSET_FONT( VD_TM,0, 31, 'DTABERORO3WKO0GG0001UZZ2ZZ02A000' ) 
CrxkereeCOPY ATTRIBUTE BLOCK '31' AS BLOCK '32' AND CHANGE TO BOLD FONT 
CALL UISSSET_FONT( VD_TM, 31,32, 'DTABERORO3WKOOPG0001UZZZZ02A000' ) 
CwekeSTGNAL THE USER TO GET THEIR ATTENTION 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 
CrrekeeWRITE THE TEXT INTO THE WINDOW AND SPAWN PROCESS TO 'WAIT' 10 SEC 
Y_POSN=2. 8 
CALL UISSTEXT( VD_TM,32,TM_A,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISS$TEXT( VD_TM, 31,TM_B, -2. 5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_TM,31,TM_C,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT(VD_TM, 31,TM_D,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_T, 32,TM_E,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_TM, 32,TM_F,-2.5,Y_POSN) 
CALL LIBSSPAWN( 'WAIT 00: 00: 10') 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 
CALL UISSDELETE_DISPLAY( VD_TM) 
RETURN 
END 


Cascuve 


te 


SUBROUTINE SETSHEErP 
Crete vere ede dese ve ve de Fede se ve de Fe Vee VEE IE A Wee EE IE ae Te ENE Ie Fe IE Te Vee Me Fe Fe WET Te Te Ne Hee Te Fe VEE TEN Fe Te He Ve HE eH FE NE GE Te He Fe FEN 


¥ 
SET_HELP ALLOWS THE USER TO DEFINE WHETHER OR NOT PARAMETER * 
DEFINITION WINDOWS ARE DISPLAYED DURING KB DATA ENTRY BY * 
SELECTING THIS OPTION ON THE MAIN 'ENDURANCE' MENU. THIS * 


FEATURE SIMPLY TOGGLES THE HELP LEVEL TO ON OR OFF AND CALLS ¥ 
THIS WINDOW DISPLAY ACCORDINGLY. ¥ 
ac 


GALLED BY SUBROUTINE SETUBEE LEVEL, ¥ 
Fevedeveveveve seve sed sevede devese se deve slese ce Fe ve Fete se ve ve ve eve veve Fe sede ve dese se dese ve sede Fete dese se seve ke sete Te tese se sek seve ete 


(Sl i 2 Sip Sp Ja Sp) <> al an A ep a > eg 


IMPLICIT INTEGER( A-Z) 

INCLUDE 'SYSSLIBRARY: UISENTRY' 
INCLUDE 'SYSSLIBRARY: UISUSRDEF ' 
INCLUDE 'TOP_ENDU. FOR' 
CHARACTER*34 HL(2) 


CHARACTER*34 SH_A/'**%*%* HELP SYSTEM SETTINGS — *vevev' / 
CHARACTER*34 SH_B/' CHANGING HELP LEVEL FROM ) 
CHARACTER*34 SH_C/' TO ch 
GHARACTER*34 SH_D/ «PLEASE WAID. ee. . 2 ee rf 
CHARACTER=34° SH E/ cn) eee PROGRAM WILL RESUME’ / 
REAL Y_POSN 

ie HELP WINDOWS ON . 

Hie) HELP WINDOWS OFF 


Cx CREATE THE DISPLAY FOR THE DIALOG BOX 
VD_SH=UISSCREATE_DISPLAY(-5.0,-2.0,10.0,4. 0,26. 0,10. 0) 
Cx CREATE THE WINDOW TO DISPLAY THE TEXT IN 
WD_SH=UIS$CREATE_WINDOW(VD_SH, ' SYSSWORKSTATION’ , ‘HELP WINDOW’ ) 
Cx%%*COPY ATTRIBUTE BLOCK '0' AS BLOCK ‘33' AND CHANGE THE FONT SIZE 
CALL UISS$SET_FONT( VD_SH,0,33, 'DTABERORO3WKO0GG0001UZZZZ02A000' ) 
Cuxs*eCOPY ATTRIBUTE BLOCK '33' AS BLOCK '34' AND CHANGE TO BOLD FONT 
CALL UISSSET_FONT( VD_SH, 33,34, 'DTABERORO3WKOOPG0001UZZZZ02A000' ) 
CrreSTGNAL THE USER TO GET THEIR ATTENTION 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 
Cx WRITE THE TEXT INTO THE WINDOW AND SPAWN PROCESS TO ‘WAIT’ 10 SEC 
Y_POSN=2. 5 
CALL UISSTEXT( VD_SH,34,SH_A, -2. 5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT(VD_SH, 33,SH_B,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
IF ( ND_HELP .EQ. 0 ) THEN 
CALL UISSTEXT(VD_SH, 34,HL(1),-2.5,Y_POSN) 
ELSEIF ( ND_HELP .EQ. 1 ) THEN 
CALL UISSTEXT( VD_SH, 34,HL(2),-2.5,Y_POSN) 
ENDIF 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT( VD_SH,33,SH_C,-2.5,Y_POSN) 
Y_POSN=Y_POSN-. 6 
IF ( ND_HELP .EQ. 0 ) THEN 
CALL UISSTEXT( VD_SH,34,HL(2) ,-2.5,Y_POSN) 
ELSEIF ( ND_HELP .EQ. 1 ) THEN 
CALL UISSTEXT( VD_SH, 34,HL(1) ,-2.5,Y_POSN) 
ENDIF 
Y_POSN=Y_POSN-. 6 
CALL UISSTEXT(VD_SH,33,SH_D,-2.5,Y_POSN) 
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CC) C2 Ca C2) C2 C2 C2 C2 2 aan 


© 


Y_POSN=Y_POSN-. 6 

CAM UIScHES EC VD_SH, 33.,SH_E,-2.5,Y_POSN) 
CALL LIBSSPAWN( 'WAIT 00:00: 10') 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 
CALL UISSDELETE_DISPLAY( VD_SH) 
RETURN 
END 


SUBROUTINE SET_HELP_LEVEL 


Kretcacselkdcacacdededesvokcdedevededcaedesdcvesdededesesle teas desesede veseseve sede le ke tese cde desks sededks Heovsededesdkvsedeskskcscvesdcokvotsesteok 


THIS SUBROUTINE ALLOWS THE USER TO HAVE THE SYSTEM PARAMETER * 
DEFINITION WINDOWS DISPLAYED OR NOT DISPLAYED, DEPENDING UPON * 
THEIR KNOWLEDGE AND PREFERENCES AND FAMILIARITY WITH TOOL BOX. * 


CALLED BY SUBROUTINE ‘ENDURANCE’ MAIN MENU x 
CALL SUBROUTINE 'SET_HELP' * 


Sercstevesdeoksvovvedescoeakvedeskocsteskeokkkscsedksvovsesededeacdvedevesededksvaedesesesesesesdcdeskeseskesededevesdeveveseoksedeveveskesevevess 


IMPLICIT INTEGER(A-Z) 
INCLUDE 'SYSSLIBRARY: UISENTRY' 
INCLUDE 'SYSSLIBRARY: UISUSRDEF' 
INCLUDE 'TOP_ENDU. FOR' 
IF ( ND_HELP .EQ. 1 ) THEN 
ND_HELP=0 
CALL SET_HELP 
ELSEIF ( ND_HELP .EQ. 0 ) THEN 
NOsHEuP=1 
CALL SET_HELP 
ELSE 
ND_HELP=1 
CALL SET_HELP 
ENDIF 
RETURN 
END 


B. SUBROUTINE ENDURANCE VARIABLES DECLARATIONS FILE 


This file is INCLUDE ’d in each of the subroutines of the ENDURANCE program 


to porovide commonality of variable declarations. 


Grote THE DECLARATIONS FOR THE ENDURANCE CALCULTIONS SECTION IN ONE FILE 


C 


CHARACTER ND_LINE*12,ND_INFILE*12 
CHARACTER ND_KB_UP(20)*12,ND_FNAME*12 


INTEGER ND_ENTERS , NLINE_NO,ND_NDX ,ND_HELP 
REAL ND_RANGE ,ND_SPD,ND_DISP,ND_PWR,ND_ELEC ,ND_MFR 


REAL ND_EFR,ND_FUEL,ND_TPA,ND_WGT,ND_VOL,ND_PCT 
REAL ND_NDPWR,ND_OTH,ND_C_AVG,ND_RATIO,ND_PFRATE , ND_GFRATE 


REAL ND_TFR,ND_APFR,FRCORR ,ND_SFR,ND_AVGFR ,ND_TIME 


COMMON /NDUR_VARS1/ ND_TIMES,ND_KB_UP,ND_HELP 

COMMON /NDUR_VARS2/ ND_RANGE,ND_SPD,ND_DISP,ND_PWR,ND_ELEC,ND_MFR 
COMMON /NDUR_NAMES/ND_EFR,ND_FUEL,ND_TPA,ND_WGT,ND_VOL,ND_PCT 
COMMON /NDUR_RESULTS/ND_NDPWR,ND_OTH,ND_C_AVG,ND_RATIO,ND_PFRATE 
COMMON /NDUR_FILES/ ND_FNAME,ND_INFILE,ND_GFRATE ,ND_TIME 

COMMON /NDUR_COEFF/ND_TFR,ND_APFR,FRCORR,ND_SFR,ND_AVGFR 


Cree KEEP POWER RESULTS HANDY TO PASS IN INCASE WE NEED THEM 
COMMON /PW_RESULTS/ PW_SDNB,PW_SDBB,PW_ADME, PW_ADM 
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APPENDIX F. TOOL BOX ENDURANCE ESTIMATION REPORT 


A. ENDURANCE ESTIMATION REPORT SOURCE CODE 
This program contains the Source Code for the Endurance Estimation report. This 
code has been added to the overall TOOL BOX program REPORT.FOR, and can be 


called from the main Report menu. 


SUBROUTINE ENDU_RPT 
Ciededededodevedevede te Fe sece sets F606 Fe Fede Te G6 TECTED TE TE TEE FETE TE TEER TERETE ETCETERA TELE TENE TCT TERETE TED DRETER TE TCTCGTE 


we 


c SUBROUTINE ENDU_RPT READS IN A STORED DATA FILE FROM THE 7 
C ENDURANCE SECTION AND PRINTS A DETAILED REPORT OF THE DESIGN * 
C PARAMETERS AND THEIR UNITS. ve 
€ ks 
C 3 
C 


CALLED BY SUBROUTINE 'REPORT' 
CRO SERS Re BRAG ROA iia ole iste te bir Ck iar cero Gk ck ok cic Gi i Ok Oi RR OS CRC OIC Oi ok oi i ioe Gi ik Gio ir ik Cio 19 
INCLUDE ‘TOP. FOR' 
INCLUDE 'TOP_ENDU. FOR’ 
CHARACTER ND_INPUT_DATA*12, ND_PRFILE*12 
CrkexkMOVE THE MOUSE POINTER AWAY FROM THE SELECTION 
elae= UlSssob) POINTER _ POSITION( VD_ID,WD_RPT,9.9,23. 5) 
CxaereSET UP THE FIRST SCREEN INSTRUCTIONS 


CALL 
CALL 
CALL 
CALL 
CALL 
CrrvekiesRE AD 
CALL 


UISSERASE(VD_ID, 4.1,20.1,8.4,24. 9) 
UISSTEXT(VD_ID,7,'ENTER THE FILE NAME" ,4.5,24. ) 
UISSTEXT( VD_ID,7,'AND EXTENSION OF THE’ ,4. 5,23. 6) 
UISSTEXT(VD_ID,7,' DATA FILE TO BE USED' ,4.5,23. 2) 
UISSTEXT(VD_ID,7,'OR [RETURN] TO EXIT’ ,4.5,22. 8) 
THE DATA INPUT FILE NANE 

KEY_READ (ND_INPUT_DATA,. FALSE. ,5. ,21.2,*30) 


CrreeeSNOW WE NEED THE NAME OF THE OUTPUT REPORT FILE 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
Cuvee READ 
i OPEN 
OPEN 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 


WISSERASE(VD_ID, 4.1,20.1,8.4,24. 9} 
UISSTEXT(VD_ID,7,' ENTER THE FILE NAME" ,4. 5,24. ) 
UISSTEXT(VD_ID,7,' AND EXTENSION TO BE © ,4.5,23. 6) 
UISSTEXT(VD_ID,7,' ASSIGNED TO THE REPORT’ ,4.5,23. 2) 
OissmEx( VDLiD.7. OR { RETURN] TO EXIT ,4.5,22.6) 
KEY_READ (ND_PRFILE,. FALSE. ,5. ,21.2,*30) 

THE DATA IN 

(23,FILE = ND_INPUT_DATA, STATUS = OLD’) 

(24,FILE = ND_PRFILE, STATUS = ‘NEW’ ,BLANK='NULL' ) 


(23,100) 
(23) ilo» 
€23;, 110) 
(23) 110) 
(23,110) 
(23,110) 
(23,110) 
(273,, hilan 
(23h 110> 
(25 lily 
(23,110) 


ND_INFILE 
ND_DISP 
ND_PWR 
ND_NDPWR 
ND_ELEC 
ND_TPA 
ND_MFR 
ND_EFR 
ND_OTH 
ND_RANGE 
ND_SPD 


i? 


Creer RE -CALCULATE FOR ACCURACY 
Gekee GENERATE THE COVER PAGE OF THE REPORT 


READ (23,110) ND_FUEL 
READ (23,110) ND_TIME 
READ (23,110) ND_VOL 

READ (23,110) ND_PCT 

REWIND( 23) 

CLOSE (23) 


iC) Sl = 
WRITE (24,130) ' ' 
CONTINUE 
WRITE (24,120) ' 
WRITE (24,120) ' 
WRITE (24,120) ' 
WRITES @2442 0) 
WRITE (24,120) ' 


&PROGRAM ' 


Whine 2420) 
WRITE 2 170) a 


&NAVAL  ' 


WRITE (24,120) ' 
WRITE (24,120) 


STE 


efact ace ¢ 
Crededeveds 


10 


WRITE (24,120) 
WRITE (24,120) 
WRITE (24,120) 
WRITE (24,120) 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


(24,120) 
(24,120) 
(24,120) 
(24,120) 
(24,120) 
(24,120) 
(2a 326) 
(24,120) 
(24 120) 
(241209 


—_-_ —-_ —-_— —- —-= =F lCll rll etl eOtOlllClceOlCOOUlUmlClCO 


WRITE (24,120) 

WRITE (24,120) 

DO 6 I = 1,13,1 
WRITE (24, 120) 

CONTINUE 

WRITE (24,120) ' ' 


TOOL BOX 


ENDURANCE LIMIT REPORT' 
geokvereskdesbedededesksbeskvesesksdevevevede sk | 


THIS REPORT WAS GENERATED USING THE 


TOOL BOX WHICH WAS DEVELOPED FOR THE 


ENGINEERING DEPARTMENT OF 


AND 


WRITE (24,120) ' PAGE 1 OF 2 / ENDURANCE LIMIT' 
f 


WRLEE @240120)mn 
DATA IS PRESENTED. 


DO 10) 1. — eo 
Wri Ee 2415.0) eae: 
CONTINUE 
WRITE( 24,120) ' 
WRITE( 24,130) ' 
WRITE( 24,120) ' 
WRITE( 24,130) ' 
WRITE( 24,150) ' 


ENDURANCE LIMIT REPORT 
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THE REPORT 1s LOGATED iar. 


1 


NAVAL POSTGRADUATE SCHOOL' 


MONTEREY, CALIFORNIA’ 


PROFESSOR F. PAPOULIAS ' 


LT. GERALD MCGOWAN ' 
LT. JAMES PLOSAY' 
1989/90 ' 


IN THIS SECTION, THE ECHO OF SHIP PARAMETERS AND CALCULATED 


THE INPUT SHIP PARAMETERS ARE AS FOLLOWS’ 


" ,ND_PRFILE 


WRITE( 24,150) 'THE INPUT DATA FILE USED IS : - 


&ND_I NPUT_DATA — 
WhiltnC 24. 160) Waa Aaereredevereaesevedeve dae Hee Te we He He He He Fdededededeterterrerk dere Hrcdesedevek sek | 


WRITE( 24,130) ' DESIGN PARAMETERS ' 
VREM@Z Gr eleopee SME WANE [5S cs. 0... secs e ce eea eee saw des ' ,ND_INFILE 
WRITE(24,130) ' ' 

WRITE(24,140) DESIGN FULL LOAD DISPLACEMENT:.......... ' ,ND_DISP 
WRITE( 24,130) (LTONS ) ' 

WRITE( 24,140) ‘DESIGN FULL POWER LEVEL:............000. ' ND_PWR 
WRITE( 24,130) ' (SHP)' 7 
WRITE( 24, 140) DESIGN ENDURANCE POWER LEVEL:........... " ,ND_NDPWR 
WRITE( 24,130) (SHP)' 

WRITE( 24, 140) DESIGN CRUISING ECECiRiG=] LOAD. 0.256. ' ,ND_ELEC 
WRITE( 24,130) (KW)! 

WRITE( 24, 140) DESIGN FUEL TANKS TAIL PIPE ALLOWANCE: ..' ,ND_TPA 
WRITE( 24,130) (%) 

WRITE( 24,140) 'DESIGN MAIN PROPULSION FUEL ECONOMY:.... ' \ND_MFR 
WRITE( 24,130) | (LBS/SHP-HR) ' | 
WRITE( 24,140) ‘DESIGN ELECTRIC PLANT FUEL USE RATE:.... ' ,ND_EFR 
WRITE(24,130) ' (LBS /KW-HR) ' 

WRITE( 24,140) DESIGN OTHER FUEL USE RATES:............ ' ,ND_OTH 
WRITE( 24,130) (LBS/HR)' 

WRITE( 24,140) ODES GN RANCH ere tac 00. ccles 6.ad-ce «Gu eed 40s ' ,ND_RANGE 
WRITE( 24,130) ' (NMILES) ' 

WRITE( 24, 140) DESIGN CRUISING SPEED:.......+.+..+.005. PE NDESED 
WRITE(24, 130) (KNOTS) ' 

WRITE( 24,140) CALCULATED ENDURANCE FUEL LOAD:......... ' ,ND_FUEL 
WRITE( 24,130) (TONS-FUEL OIL)' 

WRITE( 24, 140) CALCULATED JOURNEY TIME ALLOWANCE:...... ' \ND_TIME 
WRITE( 24, 130) (HRS @ DESIGN SPD & DISTANCE) ' 

WRITE( 24,140) CALCULATED FUEL STORAGE REQUIREMENTS: oe eND = VOlG 
WRITE( 24,130) (FT 3 VOLUMETRIC STORAGE) ' 

WRITE( 24, 140) CALCULATED FUEL RATIO OF FULL LOAD:..... Doped 


WRITE( 24,130) ' , OF DESIGN FULL LOAD)' 

WRITE( 24,130) ' ' 
WRITE( 24,130) ' ' 
WRITE(24,130) ‘| ' 
WRITE( 24,130) ' ' 
WRITE( 24,130)  Sesevedcdesvededece devedede ve sevededede dete cede ve de sede ve te deve vated de deve Tee Tek IEE | 
WRITE( 24,130) ‘ENDURANCE LIMIT ‘VALUES PRESENTED ARE BASED UPON' 
WRITE( 24,130) ‘FOLLOWING: ' 
WRITE( 24,130) ' (1) U.S. NAVY DESIGN DATA SHEET DDS9400-1 FORMAT' 
WRITE( 24,130) ' CALCULATIONS USING ESTIMATION FACTORS FOR ' 
WRITE( 24,130) ' FOULING, MACHINERY INEFFICIENCIES, ETC' 
WRITE( 24,130)  devevedededeve terete de ceded de deve HPI RI | 
WRITE (24,120) ° ' 
WRITE (24,120) ' PAGE 2 OF 2 / ENDURANCE LIMIT' 
CLOSE (24) 

100 FORMAT (A) 

Om FORMAT (G12.5) 

120 FORMAT (10X,A) 

130 FORMAT (10X,A) 

ese FORMAT (10%,A, ....iemwn. IN) 

ePOem FORMAT (1lOXiA,'.2...2... ' ,G14. 6) 

150 FORMAT (10X, 2A) 
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160 FORMAT (10X,A) 
Crees EXIT FROM THE REPORT AND ENABLE MOUSE 
30 CALL UISSERASE(VD_ID, 4.1,20.1,8.4,24.9) 
CALL UISSTEXT(VD_ID,7,' SELECT AN OPTION WITH’ ,4. 5,24. ) 
CALL UISSTEXT(VD_ID,7,' THE MOUSE' ,4.5,23. 6) 
RETURN 
END 
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APPENDIX G. OTHER SOURCE CODE 


A. TOOL BOX MAIN PROGRAM . 
This source code 1s presented for completeness, although much of it belongs to the 
original author, [Ref. 3], it is still included here since some of the UIS function calls had 


to be changed to support the new Modules added in this development. 


PROGRAM TOOLBOX 
VERSION B18. 01 

VERSION DATE: 09/03/90 

otek Sere eve Sesedes “seve eve eve ses sy ve de s'e sieves eve ve eves vs Seses Slriy tsrae s: ese Sevedesetedvedesdeve Je sieves Je sie an Sevedes' C% fes'e eve s‘e Je ededeyes se sever oslo! seveveve 
THE GOAL OF VERSION 18 IS TO ADD IN THE SCREEN DISPLAY PLOT 

TO THE PROPULSIVE POWER SECTION, AND TO CLEAN UP THE REMAINING 
CODE SECTIONS FOR FINALIZATION 


REVISION HISTORY: 
VERSION B13.6 : AS RECEIVED FROM G. MCGOWAN 
VERSION B14.0 : ADDED SEVERAL HELP WINDOWS TO EXISTING CODE 
; FINALIZED IN B14. 03 
VERSION B15.0 : ADDED POWER PREDICTION MODULE 
;: FINALIZED IN B15. 88 
VERSION B16.0 : ADDED POWER PREDICTION REPORT 
: FINALIZED IN B16. 09 
VERSION B17.0 : ADDED ENDURANCE MODULE 
: ADDED USER SELECTION OF HELP LEVEL 
ADDED ENDURANCE ESTIMATION REPORT 
: FINALIZED IN B17. 42 
VERSION B18.0 : ADDED POWER GRAPH TO SCREEN OPTION 
Re i steaniiead IN aap 2 
DEVE eT STO Te TELE OTE TEPER ESTEE TEE TEE TEETER EET EBB EE EE EE EER EREREREERR BEBE RARERICT 
siete GENERAL HEADER INFORMATION 
INCLUDE ‘GENERAL. FOR/LIST' 
EXTERNAL NOWHERE, REPORT, POWER, ENDURANCE 
EXTERNAL DARK1, DARK2, Pichia SEADIC, EXIT, MANEUVER, UTIL 


af 
oe 


ch epoeneress sme 


REAL DY2 
C 
Cvwiere SINCE THE SUBROUTINES ARE PASSED AS ARGUMENTS IN THE AST ROUTINES 
C THEY MUST BE CALLED IN EXTERNAL STATEMENTS 
C 


Cvawree CREATE THE VIRTUAL DISPLAY WITH TITLES 
FIRST, WE SHRINK THE CALLING WINDOW. 


CALL LIBSSPAWN('SET TERMINAL/WIDTH=5" ) 

CALL LIBSSPAWN('SET TERMINAL/PAGE=2') 

Cee*THEN CREATE A NEW VIRTUAL DISPLAY 
VD_ID=UIS$CREATE_DISPLAY(-1. ,-1. ,20. ,25. 5,40. 0,30. 0) 

Cy*AND ADD COLORS TO IT 

Ci*THESE TWO LINES COMMENTED OUT TO ACHIEVE GOOD B&W SCREEN COPIES 

C FOR OVERHEADS. REMOVE COMMENTS IN FINAL VERSION 

c CALL UISSSET_COLOR(VD_ID,1,.75,1.,1.) 


MaqIaagaa 


C CALL UISSSED=COLOR( VD2tD) 02 O..s0—nm oD 
CxexeexeSET UP SOME CHARACTER TYPES 
CALL UISSSET_WRITING_MODE( VD_ID,0,1,UIS$C_MODE_REPLN) 
CALL UISSSET_WRITING_MODE( VD_ID,1,2,UISS$C_MODE_REPL) 
CALL UISSSET_WRITING_MODE(VD_ID,0,4,UISSC_MODE_REPLN) 
CALL UISSSET_CHAR_SIZE(VD_ID,4,5,,. 138,. 39) 
CALL UISSSET_ CHAR _SIZEC(VD_ID,0,7,,. 125aa) 
Crxrdevre INITIALIZE 
0 s0n0 
1 oe) 
¥ LINE ees 
FLL =e PARSE: 
BL2 =sehaks er 
YPOS =ai 
Crewe DRAW THE MAIN MENU 
Cxx#eeexekTHTS ROUTINE DRAWS THE TITLE BOXES FOR THE MAIN MENU 
DO STO YeCOOR = Oa27 > sons 
DY = Y_COOR + .4 
CALL UISSPLOT(VD_ID,0,0. ,¥_COOR 3. ,¥ COOR. 3500 
& DY, 0. YO COOR) 
10 CONTINUE 
CrxreieeeSET TITLES 
BLOCK( 1) 
BLOCK(2) 
BLOCK(3) 
BLOCK(4) 
BLOCK(5) 
BLOCK( 6) 
BLOCK(7) 
BLOCK(8) 
BLOCK(9) 
BLOCKC LC). — 
BLOCK Gia) ae 
LONG_TITLE( 1) 
LONG_TITLE( 2) 
LONG_TITLE(3) 
LONG_TITLE(4) 
LONG_TITLE(5) 
CxS ET TITLES FOR OPTIONS BLOCKS 


OR MAIN MENU BLOCKS 
RESPONSE AREA 
INSTRUCTIONS 
OPTIONS MENU 


SELECTIONS 


Hobu tod t wt i 


—_-_ =_>_ => > 


DATA DISPLAY AREA 


{ 
t 
{ 
{ 
t 


t 
t 
{ 
t 


OPTION(1) = ' EXIT THE PROGRAM’ 
OPTION(2) = ' GENERATE REPORT' 
OPTION(3) =" SPL LE Ui LIES: 
OPTION(4) = ' RESERVE MODULE' 
OPTION(5) = '  ENDURANCE' 

OPTION(6) = ' POWER PREDICTION' 
OPTION(7) = ' MANEUVERING ' 
OPTION(8) = ' STATIC STABILITY’ 
OPTION(9) = ' EXIT THE PROGRAM ' 
OPTION(10) = ' RETURN TO MAIN' 
OPTIONC LL) =) on 

OPEIONGI2) = 

OPTION(13) = ' STORE DISPLAYED DATA' 
OPTION( 14) = ' INPUT DATA FROM FILE' 
OPTION(15) = ' ENTER DATA FROM KB' 
OPTION(16) = ' RUN TURNING CIRCLE ' 
OPTION(17) = ' RUN DYNAMIC PERFORMANCE ' 


22 


OPTION( 18) "LONGITUDINAL STABILITY ' 


OPTION( 19) ' INITIAL TRANS. STABILITY’ 
Crxex#e%*x*ADD OPTIONS FOR VERSIONS 15 & 18 

OPTION(20) = ' PLOT GRAPH TO SCREEN  ' 

OPTION(21) = ' PLOT GRAPH TO DISK ' 
Cx%ke*ADD OPTIONS FOR VERSION 17 

OPTION(22) = ' CALC ENDURANCE LIMIT' 

OPTION(23) = ' CHANGE HELP LEVEL ON/OFF' 


Cxee*eeNOW FILL THE BLOCKS OF THE MAIN MENU WITH THE STORED TITLES 
DO 20 I = 1,8,1 
Alin Utes hhAl( VDL 1D.0,0PTION( 1) ,235¥. LINE) 
Y_ LINE = Y_LINE + .8 
20 CONTINUE 
C**%%%TURN ON THE MAIN MENU VIEWPORT 
WD_MAIN=UISSCREATE_WINDOW(VD_ID, 'SYSSWORKSTATION' , 'MAIN MENU', 
Geer 5 100.7. .460. ,30. ) 
Cxrke*SET UP THE AST'S FOR HIGHLIGHTING 
DO 50 2o COOR = .2,5.8,.8 
DY = Y_COOR + 2 
CALL UISSSET_POINTER_AST( VD_ID,WD_MAIN -DARK1, ,X0, Vaec@OR eK. 
& DY , LIGHT1) 
50 CONTINUE 
Cxrk%eeSET MAIN MENU AST TRAPS FOR MOUSE BUTTONS 
CALL UISSSET_BUTTON_AST( VD_ID,WD_MAIN,EXIT,,,X0,.2,X1,. 6) 
CALL UISSSET_BUTTON_AST( VD_ID,WD_MAIN, REPORT, ,,X0,1.0,X1,1. 4) 
PiU SosubesOERON AST( VD ID,WDOMAIN,UTIL,, ,X0,1.8,X1,2. 2) 
CALL UISSSET_BUTTON_AST(VD_ID ,WD_MAIN ,NOWHERE, , ,X0,2.6,X1, 3. 0) 
CALL UISSSET_BUTTON_AST( VD_ID,WD_MAIN, ENDURANCE, , ,X0,3.4,X1,3. 8) 
CALL UISSSET_BUTTON_AST(VD_ID,WD_MAIN, POWER, , ,X0,4. 2,X1,4. 6) 
CALL UISSSET_BUTTON_AST( VD_ID,WD_MAIN ,MANEUVER, , ,X0,5.0,X1,5. 4) 
CALL UISSSET_BUTTON_AST(VD_ID,WD_MAIN,STATIC, , ,X0,5.8,X1,6. 6) 
Cxse%sPUT IN THE TITLE AND AUTHORS BLOCK TEXT 
INCLUDE 'HEADER. FOR/LIST' 
CwesDRAW THE STATIC/MANEUVERING/POWER/ENDURANCE INTERACTIVE DISPLAY 
PUSS SE LOL VEEID.0,-) 5, 10.,10.., 10, ,10.., 18,8, -..5., 
Leese 5. LO) 
eee sc hiINECVDUID,0,3.5,10. ,3.5,18.8,-.5,11.,3.5,11., 
& moe s oie, -.5,12.4,3.5,1204,-.5,12.8,3.5,12.8, 
& -.5,18.4,10. ,18.4) 
DO 30 Y_COOR = 13. , 18.4, .8 
DPre— ¥ CGOORs .4 
DY2 =spyY +.1 
te= 9 F8INT((Y _COOR - 12.9)/.8) 
CALL ULSSHEXT( VD_1D,0 JOPTION( Z),. 3,DY2) 
Pai Ulssr LO VD.1D,0.%0.¥ COOR,xX1., Y\COOR,X1 ,DY,X0, 
& Dy ,X0, Y_COOR) 
30 CONTINUE 
Cre F TTI, THE TITLE BLOCKS OF WORKING DISPLAY 
EeULSs lex VD 1D,5,B8LOGKC1),-.5,12. 85) 
Se iiGnWbsole xm VOID, 5 BLOCK(2).-.5,11, 4) 
Clin UlLoclexicvD.1D,5,BLOCK(3),-. 5,18. 8) 
SAL Ulecre xk VOLLN,5,LONG-TITLE(1),4. ,18. 8) 
Crre%THTS LINE CREATES A HARCOPY METAFILE WHEN RUN 
C CALL HCUISSWRITE_DISPLAY(VD_ID, 'HARD. UIS' ) 
CwetseNOW DRAW UP THE REPORT SCREEN 
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CALL RPT_GRAPH 

Cx%%*HAVE SYSTEM WAIT FOR USER ACTION 
CALL SYSSHIBER( ) 

40 END 

E 

E 

CrriveveeeE ACH MAIN SUBROUTINE IS AN 'INCLUDE' FILE TO EASE EDITING AND 

C MODIFICATIONS 
INCLUDE 'REPORT. FOR/LIST' 
INCLUDE 'MANUEVER. FOR/LIST' 
INCLUDE 'STATIC. FOR/LIST' 
INCLUDE 'POWER. FOR/LIST' 
INCLUDE ‘ENDURANCE. FOR/LIST' 


END 
C 
C 

SUBROUTINE DARK1 
Credo dese tee Sete Bete Tete PTET TEETER TERETE ETERS BRT TEE TEE TEBE ETERS TREE EEREEREEEEREREREEREERE 

v 

C THIS SUBROUTINE TURNS THE MENU ITEM IN THE BOX TO REVERSE VIDEO * 
C WHEN THE MOUSE POINTER ENTERS THE REGION DEFINED INSIDE THE * 
C BOX. IT IS USED TO INDICATE TO THE USER THAT THE SELECTION IS * 
C ABLE TO BE SELECTED SINCE THEY ARE IN THE REGION Xs 
C * 
Crcdededede deve de dese doce deve Weve de de He Te We ee Fe Fe de Fe Fee Tee N Fe FETE TE Te TENET TEN TET TCR ICT TCT TRIKE IC TRE EERIE 
C 


INCLUDE 'GENERAL. FOR' 

Cxe"TEST TO SEE IF WE HAVE BEEN HERE BEFORE AND DONE THE JOB. 
POSI1 = UISS$GET_POINTER_POSITION( VD_ID,WD_MAIN, XPOS, YPOS) 
Z = INT(YPOS/. 8)+1 


YO -="58 * INTCYPOS 2 6) sa4 
TY) =210 4; 273 

IF (FL1) RETURN 

FL1 = . TRUE. 


CrkieekTURN OFF THE LIGHTS 
CAME UISSTEXT( VULID, 1 FOPTIONGZ) 3.11) 
RETURN 
END 
C 
C 
SUBROUTINE LIGHT1 


Crete te tese te Ree R TTT TCT TERETE EER EER ER EERE EE EERE TREE REET RERSERERERBEEREREREEE 


Cc ac 
C THIS SUBROUTINE TURNS THE MENU ITEM IN THE BOX TO REVERSE VIDEO} 
C WHEN THE MOUSE POINTER ENTERS THE REGION DEFINED INSIDE THE * 
C BOX. IT IS USED TO INDICATE TO THE USER THAT THE SELECTIONS. * 
C EBLE TO BE SELECTED SINCE THEY ARE IN THE REGION ¥ 
CG ve 
Crete tease tele de Tere TTT TE TEL TOR TERETE TE TETTE RTL R ERATE RTE RERERRRERREREEREEERRRRERR 
C 

INCLUDE ‘GENERAL. FOR' 

FL1 = . FALSE. 
CrvekeresTURN ON THE LIGHTS 

CALL UISSTEAT(C VD21Ue 2 OR TIONG Aas Y) 

RETURN 
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END 
C 
C 


SUBROUTINE DARK2 
Cae vee ak sede desea ae ve dese se ve de He Fe Vee Te Teg Fe HE Ve Te ETE VE VE Te Te Fe ME VE ME Fe IE VEE HE Ve Te Ee HE Me Te TE He se Te Fe He Te Vee de Te Te Me deve se ve ve yee I 


e * 
C THIS SUBROUTINE TURNS THE MENU ITEM IN THE BOX TO REVERSE VIDEO * 
C WHEN THE MOUSE POINTER ENTERS THE REGION DEFINED INSIDE THE * 
C BOX. IT IS USED TO INDICATE TO THE USER THAT THE SELECTION IS * 
C ABLE TO BE SELECTED SINCE THEY ARE IN THE REGION * 
CG ve 


Ce Were de de ede se ded seve Ne ve Fe ese He Fe ve ve He Fee ve ae Fe He ME Ve TE He Ve TE IE HIE IE NE HE He FEE Te Tee Ne He FEN eT Ie Te se ae A He Ne se ve Fee se veges 


GC 
INCLUDE 'GENERAL. FOR' 

C TEST TO SEE IF WE HAVE BEEN HERE BEFORE AND DONE THE JOB. 
POSI2 = UISSGET_POINTER_POSITION( VD_ID, WNDOW , XPOS , YPOS ) 
Z2 = INT(YPOS/. 8)-7 
YO = .8 * INT(YPOS/.8) + .3 


Waie= YO + .4 
Ee Cris2 ) RETURN 
ei 2e— 11 RUE. 


QyekekTURN OFF THE LIGHTS 
CALL UISSTEXT(VD_ID,1,OPTION(Z2),.3,Y1) 
RETURN 
END 
6 
c 
SUBROUTINE LIGHT2 


Creare de dedede de deve deed Tete ve ede Tete le ese Fee Te Fe Fe 7s 6 TENE TE HE TENE BENE FETS FETE TE FE FE TE TE HEHE TENE TE FETE TEE TOF TS TS HE FETE NE Te ETE TE TEN 


CG THIS SUBROUTINE TURNS THE MENU ITEM IN THE BOX TO REVERSE VIDEO * 
C WHEN THE MOUSE POINTER ENTERS THE REGION DEFINED INSIDE THE “ 
6: FOX If IS USED TO INDICATE TO THE USER THAT THE SELECTION IS * 
C ABLE TO BE SELECTED SINCE THEY ARE IN THE REGION W 
C is 
Cisdedsvededede terete le cece te Te i0 ee Bee TEEN TCT TEESE ET ETE REET EERIE BERT EERE ERE REER EEE BRERERE RE 
C 


INCLUDE 'GENERAL. FOR' 
CxwxTELL THE WORLD WE ARE LEAVING 
IF (Z2 .LE. .01) RETURN 
PL? = . FALSE, 
Cxs%TURN ON THE LIGHTS 
GAGL UISSTEXT( VD_ID,2,OPTION(Z2),.3,Y¥1) 
RETURN 
END 
C 
c 


SUBROUTINE EXIT 
Creda ae vede Fede de eve de de ae Hea ae se Fe He Fee Te Fe He Fe Ve Fe He Fe He Te eH EH Ie Te Te Te Fe TENE Ke Ve Te TE Te HEE Fe TET TNE EC TERR I 


Tededercacseaedeakeseskewedk vedesewovese sede deskeveskveksescsededke scale dkedovedede aes seve vtevesede seve deck ve veseate ves vest de ake de dele ve teat 


G my 
C THIS SUBROUTINE IS THE GLOBAL SYSTEM 'EXIT' ROUTINE SELECTED * 
C FROM THE MAIN OR ANY SUB-MENU TO EXIT THE SYSTEM AND RETURN v 
C TO THE CALLING PROCESS | * 
'e vhs 
C 

C 


125 


Crreere*MAKE THE DISPLAY BIG AGAIN SINCE WE SHRUNK IT TO START OFF 
g 

CALL LIBSSPAWN('SET TERMINAL/WIDTH=80' ) 

CALL LIBSSPAWN('SET TERMINAL/PAGE=24' ) 

CALL SYSSWAKE(, ) 


CONTINUING BACK TO THE PROGRAM AT THE POINT OF INTERRUPTION * 
* 


OR ENDING THE PROGRAM ENTIRELY. 
rhe 


Jevesededcsesedccccevescseveucsdcsdeskesedeseseccsktscskcskcceskcseskseskdedescscdeseskesescsdesesevesesesesedesdesesdcskeseskcsesescesevesevescsesese sev 


RETURN 

END 
C 
C 

SUBROUTINE NOWHERE 
Cite dese sede deve sede de dese ae ve se Fete ve Fe Fe Te Fe Fe Fe He FETE Te HET TE TENE HE FEN TENE Ie FETE TE ETE FETE TENE TEN Fe TET TET TEN FETT TE I HECK He Fe 
C ¥ 
C THIS SUBROUTINE IS CALLED BY A MOUSE BUTTON SELECTION OF AN * 
C OPTION THAT IS NOT ENABLED YET. IT POPS UP A DIALOG 'HELP' 7 
C BOX THAT INSTRUCTS THE USER AND GIVES THEM THE OPTION OF 7 
C 
C 
C 
C 
C 


IMPLICIT INTEGER(A-Z) 

INCLUDE 'SYSSLIBRARY: UISENTRY' 

INCLUDE 'SYSSLIBRARY: UISUSRDEF ' 

CHARACTER*34 HINT1/'*** THIS FEATURE NOT AVAILABLE ***! / 


CHARACTER*34 HINT2/' TYPE "CONTINUE" TO RESUME a, 
CHARACTER*34 HINT3/' OR "EXIT" TO END PROGRAM i) 
REAL Y_POSN 


Cure CREATE THE DISPLAY WINDOW FOR THE DIALOG BOX 
VDETEST=UISSCREATE DISPLAYCO} ORONO; Os0rS. OF 202 0.5.0) 
Crees CREATE THE WINDOW TO DISPLAY THE HELP TEXT 
WD_TEST=UISSCREATE_WINDOW(VD_TEST, 'SYSSWORKSTATION' , 'HELP WINDOW’ ) 
CrrerSET THE SCREEN FONTS WE DESIRE FROM ATTRIBUTE BLOCK '0' TO BLOCK 
6 '20' AND CALL THE FILENAME OF THE FONT 
CALL UISSSET_FONT(VD_TEST,0,20, 'DTABERORO3WKO0GG0001UZZZZ02A000' ) 
Cx*rxexeSTGNAL THE USER ON PROCESS PAUSE FOR DISPLAY OF HELP BOX 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 
Cw PRINT THE TEXT AS WE WANT IT 
Y_POSN=4. 0 
CALL UISSTEXT( VD_TEST, 20,HINT1,0.4,Y_POSN) 
Y_POSN=Y_POSN-1 
CALL UISSTEXT( VD_TEST, 20,HINT2,0.4, Y_POSN) 
Y_POSN=Y_POSN-1 
CALL UISSTEXT( VD_TEST, 20 ,HINT3,0. 4, Y_POSN) 
PAUSE 
CrerexeXSTGNAL THE USER PROCESS RESTARTED 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION' ,4) 
CrkereeRETURN TO CALLING PROCESS AT POINT OF INTERRUPT 
CALL UISSDELETE_DISPLAY( VD_TEST) 
RETURN 
END 
C 
C 
SUBROUTINE TO_MAIN 
Creverededededetede secede fede Te cede Tete Re TENET ES TERETE TE TORE RTE TE TE TERETE TEPER LETTE EE TEE TET REE RETR EEE TECK 
C %* 
C THIS SUBROUTINE IS CALLED TO RETURN TO THE MAIN MENU FROM A ¥ 
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c SUB-MENU. % 
3 


Cade dese de se teve Fe Te Fe Fe He Fe ETE Fe VET HET TEE TENE TE HE ETE TE TET TENE EVE TET VETTE ETE HE TE TIE TENE HIE HE NE NE TH TEN HI KR I 


C 
INCLUDE 'GENERAL. FOR' 
Cree DISABLE THE AST'S 
STA=UISSSET_POINTER_POSITION( VD_ID,Wndow,9. 7,14. ) 
CALL LIGHT2 
CALL UISSSET_BUTTON_AST(VD_ID,WNDOW,,,,X0,13.0,X1,13. 4) 
CALL UISSSET_BUTTON_AST(VD_ID,WNDOW,,,,X0,13.8,X1,14. 2) 
CALL UISSSET_BUTTON_AST(VD_ID,WNDOW,,,,X0,14. 6,X1,15.0) 
CALL UISSSET_BUTTON_AST(VD_ID,WNDOW,,,,X0,15.4,X1,15. 8) 
CALL UISSSET_BUTTON_AST(VD_ID,WNDOW,,,,X0,16. 2,X1,16. 6) 
CALL UISSSET_BUTTON_AST( VD_ID,WNDOW,,,,X0,17.0,X1,17. 4) 
CALL UISSSET_BUTTON_AST( VD_ID,WNDOW,,, ,X0,17. 8,X1, 18. 2) 
Crrexe*eNOW CALL UP MAIN MENU 
CALL UISSDELETE_WINDOW(WNDOW) 


RETURN 

END 
C 
C 

SUBROUTINE SHOW_SAVE 

Cre deve se He de Tete He Tose ss He Fe He Fe Fe Ve Fe Me Fe TE Te Te FETs Fe Fe Fe Fe Fe Ve 16 FE TEE HET He ETE Ne TE Te Fe FE Fe Ie Fe Te Te FETE He Fe Fs Fe To G6 Fe Te He Hee 36 Fe 76 
Cc rhs 
C THIS SUBROUTINE POPS UP A DIALOG BOX TO INSTRUCT THE USER NOT * 
C TO USE THE SAME DATA FILE NANE AS USED IN A PREVIOUS PROGRAM * 
C SECTION [SINCE IT WILL OVERWRITE THE OLD ONE CAUSING ERRORS % 
C OR LOST DATA]. IT IT CALLED BY THE SUBROUTINE THAT SAVES THE 
C DATA FILES ¥ 
G oy 
Crederesededede deve de seas sede de de fore Fede Fo Fe Fe He He Te Fe 6 ee HIE THT He TE TET TC TE TET TE TC TE TCT TE TET EE Te TENE EN TET TCH 
C 


IMPLICIT INTEGER(A-Z) 
INCLUDE 'SYSSLIBRARY: UISENTRY' 
INCLUDE 'SYSSLIBRARY: UISUSRDEF' 
CHARACTER*34 SAVE/'*%* SAVING DEFINED DATA FILE 7 '/ 
CHARACTER*34 SAVE2/' DO NOT USE SAME NAME & EXTENSION '/ 
CHARACTER*34 SAVE3/'AS DATA FILE FOR OTHER SUB-SECTION’ / 
OER GlER «34 SAVES/ PLEASE WAIT...........0.0000080e0% 
RAC TER 34 SAVES/ .......0-00e00 PROGRAM WILL RESUME’ / 
REAL Y_POSN 
Cw%s*CREATE THE DISPLAY FOR THE DIALOG BOX 
VD_SAVE=UISSCREATE_DISPLAY(0. 0,0. 0,10. 0,5. 0,20. 0,6. 0) 
Crres*CREATE THE WINDOW TO DISPLAY THE TEXT IN 
WD_SAVE=UISSCREATE_WINDOW( VD_SAVE, 'SYSSWORKSTATION' , 'HELP WINDOW’ ) 
CrrCOPY ATTRIBUTE BLOCK '0' AS BLOCK '20' AND CHANGE THE FONT SIZE 
CALL UISSSET_FONT(VD_SAVE ,0,20, 'DTABERORO3WKO00GG0001UZZZZ02A000' ) 
Crr2sCOPY ATTRIBUTE BLOCK '20' AS BLOCK '21' AND CHANGE TO BOLD FONT 
CALL UISSSET_FONT( VD_SAVE, 20,21, 'DTABERORO3WKOOPG0001UZZZZ02A000' ) 
CxS TGNAL THE USER TO GET THEIR ATTENTION 
CALL UISSSOUND_BELL('SYSSWORKSTATION' ,4) 
CreereWRITE THE TEXT INTO THE WINDOW AND SPAWN PROCESS TO 'WAIT' 15 SEC 
Y_POSN=4. 0 
CALL UISSTEXT(VD_SAVE,21, SAVE, 0. 2, Y_POSN) 
Y_POSN=Y_POSN-. 8 
CALL UISSTEXT( VD_SAVE, 20,SAVE2,0. 2, Y_POSN) 
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Y_POSN=Y_POSN-. 8 

CALL UISSTEXT.CVDuSAVER 2ZORSAVESR022. YarPOsh)) 

Y_POSN=Y_POSN-. 8 

CALL UISSTEXT( VD_SAVE, 21 ,SAVE4 ,0. 2,Y_POSN) 

Y_POSN=Y_POSN-. 8 

CALL UISSTEXT( VD_SAVE, 21,SAVE5 ,0. 2,Y_POSN ) 
CALL LIBSSPAWN( 'WAIT 00:00: 15') 
CALL UISSSOUND_BELL( 'SYSSWORKSTATION’ ,4) 
CALL UISSDELETE_DISPLAY( VD_SAVE) 


RETURN 

END 
C 
C 

SUBROUTINE UTIL 
Fae Hever Fede dete Kaede Fed Vere Nese Te de Ne Veve Tete te KCTS Te TCR TE TENCE TTT TEER CT RIKER CT 
¥ * 
¥ UTILITY IS A SUBROUTINE WHICH ALLOWS THE USER * 
¥ TO SHELL BACK TO THE CALLING WINDOW WITHOUT LEAVING THE * 
¥ PROGRAM ENVIRONMENT. THIS ALLOWS A USER TO RUN A DCL 7 
x COMMAND ( SAY A 'DIR' ) WITHOUT LEAVING THE PROGRAM. * 
* WHEN FINISHED, THE USER ENTERS THE COMMAND 'EXIT' OR * 
* A RETURN ON A BLANK LINE AND CONTROL RETURNS TO THE TOOL ¥ 
* BOX MENU. * 


x ¥ 
Kuvadededsacdededesssdeveteslcdedkakdedcdededededetodecsevededededcdedededcdekidcdevevedkdeckckovadededededevedekdcdedcdedcdedededesds 
INCLUDE 'GENERAL. FOR' 
CHARACTER*“64 CMMD 
STA=UISSSET_POINTER_POSITION( VD_ID,WD_MAIN,9.9,5. ) 
Crxerevse*RETURN THE SCREEN TO DEFAULT SIZE 
CALL LIBSSPAWN( 'SET TERMINAL/WIDTH=80' ) 
CALL LIBSSPAWN('SET TERMINAL/PAGE=24' ) 
Cr9%PUSH THAT SCREEN TO THE FOREFRONT 
CALL UISSPUSH_VIEWPORT(WD_MAIN) 
i TYPE *, ‘ENTER THE DCL COMMAND ...OR [RETURN] TO EXIT’ 
PRINT *,'° ' 
READ (*,FMT='(BN,A)') CMMD 
PRINT *, CMMD 
Creeeek TF COMMAND IS A 'RETURN', XFER BACK TO 'TOOL BOX' 


IF (CMMD .EQ. ' ') THEN 
CALL UISSPOP_VIEWPORT(WD_MAIN) 
RETURN 

ENDIF 


Creer SPAWN A NEW PROCESS FOR THE ENTERED COMMAND 
CALL LIBSSPAWN( CMMD ) 


PRINT * se 
GOTO 1 
END 

C 

C 
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B. TOOL BOX MAIN PROGRAM VARIABLE DECLARATIONS 
This fle GENERAL.FOR is INCLUDE ’ed in each subroutine of the main core 


code to provide commonality of variable names and types. 


Crewe GENERAL. FOR** Kaa seaeatsede seek Tease Wee Ne Teme ae WIE Fe Ie He Me Mee Ve Me Ae FETE TE FETE Te Me He WME MM Mee We He He He 


C GENERAL HEADER INFORMATION 
Creer Heme Yedede de Vere de Fev Pere Ve He Fe VeFe Ve He Fe Fe MEME THe He Te FEN TE He WE Te FEDEN FETE He ENE TE Te TENE TE FETE ETE TENE TE NTN PETE NE HNN He FE 
IMPLICIT INTEGER(A-Z) 
INCLUDE 'SYSSLIBRARY: UISENTRY' 
INCLUDE 'SYSSLIBRARY: UISUSRDEF' 
COMMON /KB/ KB_ID 
COMMON /DISPLAY_1/ VD_ID,WD_MAIN,WD_STATIC , WD_MANU ,WNDOW , VD_TEST 
COMMON /DISPLAY_2/ WD_RPT ,WD_POWER,WD_FAIL,VD_FAIL,VD_SCR 
COMMON /DISPLAY_3/ WD_NDUR ,WD_TM,WD_MTM,WD_SCR 
COMMON /DISPLAY_4/ WD_SH,VD_SH 
REAL*4 X0,Y0,X1,Y1,XPOS, YPOS, Y_COOR,Y_LINE,DY 
COMMON /REAGEN/ 20,41,Y0,Y1,Y COOR,Y LINE, DY,YPOS 
COMMON /INTEG_R/ 2,22 
LOGICAL*1 FL1,FL2,KEYBUF(4) 
COMMON /LOGI/FL1,FL2 
CHARACTER*26 BLOCK*29, OPTION, LONG_TITLE*40 
COMMON /CHAR/ BLOCK(11),OPTION( 23), LONG_TITLE(5) 


C. TOOL BOX MAIN SUB-PROGRAM VARIABLE DECLARATIONS 
This file TOP.FOR is INCLUDE’ed in each of the subroutines throughout the 
program that require commonality of only a few of the main program window and de- 


vice Variable declarations. 


HRiekkawdkdcdssededeesw as TOP, FOR wevevedddededededeatabtabdededededesteds code deve de ae see ve ak ve seas vo a5 Fe se Fe vs He eee He 
IMPLICIT INTEGER (A-Z) 
INCLUDE 'SYSSLIBRARY: UISENTRY' 
INCLUDE 'SYSSLIBRARY: UISUSRDEF ' 
COMMON /KB/ KB_ID 
COMMON /DISPLAY_1/ VD_ID,WD_MAIN ,WD_STATIC ,WD_MANU , WNDOW , VD_TEST 
COMMON /DISPLAY_2/ WD_RPT ,WD_POWER,WD_FAIL, VD_FAIL,VD_SCR 
COMMON /DISPLAY_3/ WD_NDUR,WD_TM ,WD_MTM,WD_SCR 
COMMON /DISPLAY_4/ WD_SH,VD_SH 
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